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To Our Customers . , . 



The TRS-80* Computer < ir;iphi< . pjckigc iwolininniws your Model * by letting yon draw intricate displays from 
simple program instructions. With the highly defined Graphics Screen, the list of practical application* is nearly 
endless! 

The TRS-80 Computer Graphics package includes a; 

• Computer Graphics Diskette 

• Computer Graphics Operation Mantui 

However, before you can mc thi* package, youi Model 4 must have 64K of RAM (Random AwccM Mcmnrj ) and 
nv disk drive Your computer irusi alio he modified by a qualified Radio Shack service technician. 

Included »n the GiapliKs diskette are: 

• I RSDOS Version 6 

• Graphics BASIC <BA.SICG) 

• Graphics Subroutine Library (ORPLIB) 

• Graphics Utilities 

• Sample Programs in UASKXi and HJRTRAN 

To pnnl graphic displays, you can use any Radio Shack printer that hat graphic capabilities wch a\ line Printei VII 
(26-1167). Line Printer VIII (26-1168). DMP-IOO (26-1251). DM P- 200 (26-1254). DMP-400 (26-12511. or 
UMP-MO (26-1252) 

You can al«> utilize the Graphics Subroutine Library with several languages, including, hut not limited to. 
FORTRAN (26-2219). 



About This Manual . . . 

Fit your convenience, we've divided ibis manual into five sections plus appendices; 

• Computer (iraptiics Overview 

• Graphics BASIC (BASICG) Language Description 

• Graphics Utilities 

• FORTRAN Dcscriplion 

• Programming ihe Graphics Board 

This package contains two separate (but similar) methods for Graphics prog ramming: 

• Graphic* BASIC (BASICG) 

• Graphics Subroutine Library 

If you're familiar with Model a TKSDOS" and BASIC, you should have little trouble in adapting to Graphics 
BASIC ir y(«i warn u> review BASIC statement and syntax, sec jour Model 4 Disk Sytfcm Owncr't Manual 
Then read Chapters 1 . 2 and 3. along with Appendixes A, B. D. and E of this manual. 

If it "k Graphics applications in FORTRAN you're alter, refer to the TRS-KO FORTRAN iiianuai. Then lead Cliapicis 
I. 2. 3. and 4 as well as Appendixes C. D. E. and F of this manual. 

Note: 'Urn manual is written as a reference manual fi» ilie TRS-Sfl Cuoijmiei Giaplncs package. Ii Is n«i Intended 
a» a teaching guide for graphics programming. 

Notational Conventions 

The folWmp conventions are u-<d to show syntax in this manual; 



CAPITALS 



lowercase italics 



filcspcc 

punctuaiiort 
delimiters 



Any words or characters which arc uppercase must be lypcd in exactly as Ihey 
appear. 

Fields diown in lowercase italics arc variable information that you must nibsiimie 
a value for. 

Any word or character contained wrthii a box represents a keyboard key to be 
pressed 

Hlipses indicate that a field entry may be repealed. 

A field shown as filespee indicates a standard TRSDOS file specification of the 
form: fi/crname'est. password :d 

Punctuation other than ellipses must be entered as shown. 

Commands must be separated from their operands by one or more blank spaces 
Mullple operands, where allowed, may be separated from each other by a 
omnia. O wmral fallowed by one or more blanks, or by one or more blank*. 
Blanks and commas may not appear within an operand 
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1/ Computer Graphics Overview 

Graphics is Ihe presentation of dimensional artwork . With TRS-80 Computer Graphics, the artwork B if splayed <>n : 
two-dimensional plane — your computer screen. Like an artist's easel or a teacher's blackboard, ihe screen is a 
"drawing board" for your displays. 

TRS-80 Computer Graphic?. ha& cwo color*: 

• Black (OFF) 

• White (ON) 

Graphics programming is different from other lypcs of programming because jour ultimate result is a pictorial 
display (bar graph, pie churl, etc.) rather thorn textual display (i-um, equation, etc. I. Thti is an infM>imiii distinction. 
After work inn with gmphirs for a while, you'll find yourself thinking "vifiwilly" as yoti wiffl prosramt. 

In computer-generated graphics, displays can include tables, charts, graphs, illustrations and other types of artwork. 
Oikc they're created, you can "punt" display, with a variety ol styles and shapes, or even simulate animation. 

The Computer Graphics program uses a 'high-resolution" screen. The more addressable points or dots (called 
"pixels") on a computer's screen, ihe higher the resolution A lower resolution screen has fewer addressable pixels. 



I'l> r L. 






PIXEL 




Lower resolution 



Higher resolution 



Figure 1 Resolution 

Since the TRS-Sfl has higr)>res»lutii>n — MO pixeU nn tbe X-axis (fl in 630( and MO piiels on llv Y-axis i0 lo 239) 
— you can draw displays that hive excellent clarity and detail. 



How TRS-80 Computer Graphics Works 

The concept of graphics is fairly simple Each point on the screen can be lurried ON Iwbiiei or OFF ibhck). 
When yon clear the Graphics Screen, all graphic points arc turned OFF. 

Therefore, h\ setting various combinations of the pixels msually with a single rommandi cither UN or OFr. vou can 
generate lines, circles, geometric figures, pictures, etc. 
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The Graphics Screen 



TRS-80 Computer Graphics Kai two "screens" — Text and Graphics. (We'll call them screens, although the> are 
really modes. I Both screens can aci independently of each rther and male use of ihc computer'* entire displa> area. 

The Text Screen, also referred to as the '"Video Display," is the ■"normal" screen where you type in your 
programs. The Graphics Screen is where graphic results are displayed. Both screens can be cleared independent!}. 
Note. The Graphics Screen will not automatically be cleared when you return to TRSDOS. It will be cleared when 
you re enter BAS1CC. 

The Graphics Screen camol be displayed ai the same time as ihe Tc.xi Screen. 

While working with Computer Graphics, it micht be helpful to imagine the screen as a large Carte sun coordinate 
plane (u'iih a hnrbnntal V- »nd a vertical Y-aviu) However, unlike wins? coordinate systems. TPS-BG Conputer 
Graphics' cnOKliiii-ie numbering Starts in the uppei-lefl corner — (0.0) — and increaics tovarJ the Inwer-right 
comer — (639,234), The lowei-lefi comer ts 10.219) ami ihe upper-right comer i* IfvW.O). 

Since die screen is divided initi X-Y coordinates (like the Cartesian system), each pUel Is ilcfinei! as a unique 
portion. In TRS-80 Computer Graphics, you can diitctly refcreiKC these coordinates as you draw. 



About Ranges... 



Some TRS-M) Computer Graphics commands arrfpl valiuH within the Model 4 imejvr ran;? i - l?7f>S to l?767i. 
instead oi just tc 639 fur X and to 239 for Y. Since mast of ihe poitils in ihe Integer rang: ate off ihe screen, 
these points are part of what is called Graphics "imaginary"' Cartesian system 




Figure 2. Graphics Visible Screen 
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Figure 3. Graphics "Imaginary" Cartesian System 
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2/ Graphics BASIC 

Graphics BASIC (BASICG) vs. BASIC 

The Graphics BASIC file on lhc supplied diskette is named BASICG. 

You can load and run a BASIC file from cither BASICG or BASIC. You cannot run programs that contain BASICG 
stttCDfentt while in BASIC. 

Important Note: Bccnutc of memorv limitations, some progrutiu 'i.e., **>n>c application pK'tum-i will not nin in 
BASICG BASICG uses approximately 0.6K more memory than BASIC S.»nw Graphics Commands iiie r¥ee 
Memorv This means that the larger vour BASIC programs arc. the mote limitations on vour Graphic- capabilities. 

Each Graphics program statement ha« a specific syntax and incorporates a Graphics BASIC command or function. 

Tabic I gives a brief description of the BASICG commands: Table 1 li<ts the BASICG functions. This section ol the 
manual will describe each statement and function in detail. 



BASICG Commands 


Command 


Description 


CIRCLE 


D o'. a Circle, die. semiui Je. etc. 


CLR 


Clears the Graphics Screen. 


LOCATE 


Sols the Graphts Cursor and the direction lor pulling characters on the Graphics 
Screen. 


GET 


Reads the contents of a rectangle on the Graphics Screen into an array lor 'ulure 
use by PUT. 


LINE 


Draws a line from the stanpoht to the endpoint n the specified line style and cole 
Also creates a bo» 


PAINT 


Paints an area, starting ttom a specified point. Also paints a specified style. 


PRESET 


Sets an individual dot (pixel) OFF (or ONI. 


PRINT #-3 


Writes characters to me Graphics Screen 


PSET 


Sets an individual doi (pixel) ON for OFF|. 


PUT 


Slores grapMcs Irom an array onto the Graphics Screen. 


SCREEN 


Selects the Graphics or T»xt Snraen 


VIEW 


Creates a viewport which becomes the curreni Graphics Screen. 



Table 1 



II 
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RASICG Functions 


Function 


Description 


&POINT 


Returns the OFRON color value ol a pixel. 


&VIEW 


Returns the current viewport coordinates. 



Tabic 2 



Starting-Up 



Before using the diskette included with thU package, be sure lo make a "tafe copy" of it See your Model 4 
Introduction to Your Disk Syttem tor information on BACKUP. 

To load BASICG: 

1 . Power up your System according lo the sun-up procedure m your Model 4 Introduction to Your Disk System. 

2. Insert the backup diskette into Drive 0. 

3- Initialize the System as described in your \todel4 Introduction to Your Disk System 

A- When 7RSDOS Ready appears. lype 

b^sicc ( EHTEff) 

The Graphics BASIC start-up prompts, followed by the RF.ADY prompt appear, and you arc in Graphics BASIC. 
You can now begin BASICG programming. 



Remember that Model I 


numeric values ate *> follows: 






Model 4 Numeric Values 




Numeric Type 


Range Storage Requirement 


Example 




Integer 


-32768,32767 2 bytes 


240, 639. - 10 




Single-Precision 


-LIO 3 * -W10" 38 4 bytes 
- l-I0 M . • 1-10" 38 
Up to 7 significant digits 
{Prints six) 


22.50.314259 
-100.001 




Dou ble-Precision 


-UIO^-I-ICT* 8 bytes 

*l*«r*+f»10-* 

Up to 17 significant digits 
(Prints 16) 


1230000.00 

3.141 5926536897932 





Table 3 
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With each BASICG command or function, there are various options which vou mav or mav not include in a program 
statement (depending on your needs) Each option is separated from the previous option by a delimiter, usually a 
comma. When you do not specify an available option (e.g.. you use the default value) and you specify subsequent 
options, you must still enter the delimiter or a Synta< hnw will result. (See your Model 4 Disk System Owner's 
Manuul for more information.) 

Because you iire dealing with two dittitKl fcrecM, the Graphics Screen and the Text Screen, we strongly urge you to 
read ihe description of the SCR KEN command before continuing. 

CIRCLE 

Draws Circle, Semicircle, Ellipse, Arc, Point 

CIRCLE fx,W,r.c,siart.end,ar 

fx,y) specifies the centerpoint of the figure, x and y are integer expressions. 

r specifies the radius ot the tigure m pixels and Is an integer expression 

c specifes the OFPON color o* me figure and is an integer expression of either o (OFF/btacO or 1 

(ON'white). c is optional; if omitted, 1 is used. 
start specifies the stertpomt of the figure arxj 1 is a numenc expression from to 6.2831B5 start is 

optional; it omitted. is usee. 
•nef specifies the endpolnt ol tho figure and is a nume*ic expression from to 6.283185 end is 

Optional- it amdtod. 6.293185 is ueoet 
ar specifies the aspect ratio of the circle, is a single- precision foating-point number > 00 (to 

1 •10 38 ) and determines the major axis of the figure, ar is optional; if omitted, .5 is used and a 

circle is drawn. 




TIic CIHCLK " ii in. mi let* yuu did** five lypo ol .;ji : .:- 




o 




Circle 



Ellipse 



Arc 



Pie- SI 'to 



Po-nt 



Figure 4. Types of Displays with CIRCLE 

With CIRCLE, you can enter values tor PI land 2 x Pli up to 37 significant digits without getting an overflow error. 
However, only 10 digits arc displayed. 

3 1 41 5926535697932384636433832795C28841 
6.263185307179586^769252867665590C57682 
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However, you'll probably only be able to visually delect a irhange in the circle's nan and end when PI is accurate lo 
a few significant digit* (e.g., 3. 1 . 6.28. etc.). The stan and end values can't be more than 2 x PI le.g.. 6.2832 will 
not work) or an Illegal Function Call cm* will occur. 

Center poin! 

The {i.yl coordinates in the CIRCI.R statement specify the ccnieroo'ni r>( the figure r and y are numeric expressions 
in .lie iiitegei nuinhci range. 

Example 

CIRCLE (x.y),r 
CIRCLE t320.120).r 




Figure 5. Center ot Circle 

r 
Radius 

The radius of a circle is measured in pixels and is a numeric expression in the integer range. Radius is the distance 
from the centerpoint Iq ihe edge of ihe figure. Although a negative value will be accepted by BASICG. ihe re^ulta of 
using a negative value arc unpredictable. 

The radio* Is cither on the X-axis or Y-axis, depending on the ar>pcci rtitio <scc w). If tlic i^pcii ratio ig gicotci tli<*i 
I . ihe radio* is measured on the Y-axis. If the aspect ratio is less than or equal to I . the radius it measured on the 
X-axrs. 

Example 

1« CIRCLEO20 .120) .100 
Thin example draw* a circle. The radiu-i is 100 and the centerpoint is (320, 1 20). 

Color 

You san £ct the ON/OFT ( <v hiic-blask) color of a figure*:) boidci and iddius hues fsee ihati/ciid) by specifying d 
numeric value of I or 0. 



If you omlicohw. BASICG uses I lON white V 
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Border 



Figure 6. Border of Circle 

siartlend 
Startpoint/Endpoint of Circle 

The RUgC for star/ and end h l«> 6.283185 (2 X PI). 

If you do not enter nan and end. the default values of and 6.28. ie*pcctivcl>. are Used. 

A negative start or end value will eau.se the rcspcctvc radius to be drown in addition to the- an. (i.e.. il will diaw a 
"j.iive uf the pic"). The actual sum and ertdpnlnts are determined By taking the absolute value ol the specilied Man 
aid endpoint* These values are incisure) in radians 

INotc: Kadius mil not be drawn il start or end a -0. To draw a radius villi Start orrnt/asO. you must use 
-o.ooo.. .01. 

12:00 




3:00 



6:00 



Figure 7. Clock Radian equivalents 
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Degrees 


Radians 


Clock Equivalent 










3:00 




90 


1.57 


12:00 




iao 


3 14 


9.C0 




270 


471 


6:00 




360 


628 


3:00 





Tahle a. Degree Radians Clock Equivalents 

Yuu cai draw semicircles and arcs hy varying start aid end If start and end arc the same, a point (one pixel) will 
be displayed instead of a circle. 



e:td 



Radiu$ 



Center 




start 



Figures. CIRCLE'S (-> start, (-)enrf 

You can nave .. positive start and a negative end <m rice VOU) a;* well as negative aan.% and ends. In ihcsc cases. 
«nly on<- radius line is drawn. 



A(C 



Cento 




end 



Radlut 



Figure 9. CIRCLES ( + ) start, ( - J end 
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Hints and Tins about start and end; 

• When using the default values for start anil end. you must use commas as delimiters if you wish id add more 

parameters. 

• If you use PI. it is not a reserved word m BASICG oihJ must be defined in your piujeiam. 

ar 

Aspect Ratio 

You can draw ellipses by varying the aspect ratio from the default value f.5) for a circle (and semicircle). 

Every ellipse has a "major axis*' which it the cllipvc'% linger, predominant **i*. Willi an ellipse t*5 with a cin. Icl, 
the 'Wo a \i* * are at right angles to each other. 

The mathematical equation for dstermming the aspect ratio is: 

ar m length n$ Y-axis! 'length tf X-axis 

t If ih' aspect ratic is .5, a circle is drawn. 

• If The ratio is less than .5. an ellipse with a major axis on the X-axrs is drawn. 

• II ibe ratio is greater than .5. an ellipse with >i inajiT axis on the Y-ax a is drawn. 



x - 




, 



X-Axis Ellipse (er v .5) 



Y-Axls Ellipse (ar > .5) 



Figure 10. CIRCLE'S Ellipse 

The range for aspect ratio is a single -precision fluating-pnini numher greater than 0.0 Ito I •10*1. Ahhouj 
negative value will be accepted »y BASICG. the results of using a negative value are unpredictable. 

Hints and Tips aboul aspect ratio: 

♦ Entering .5 a*, the ratio produces a circle. 

• Numbers between ami .5 produce an ellipse with a majnr axis on X 

• Numbers over .5 generate an ellipse with a major axis on Y. 

* Even though you can enter large aspect ratios, large numbers may produce straight lines. 
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Examples 

CIRCLE <3Z0tl20> .90.1 
Tli(<> c\jin[>Ic Jiuws a wliilc-uuiocicd mUc with llic iciilupuiiil ul 1320.120) aid ladius ul VO 

CIRCLE < 320 .1201 .90,1 ... .7 
This siaterccm draw* a white-boidcrcd ellipse with an origin of I320.I2OI and radius of 90. The major axis is the 
Y-axis. 

CIRCLE ::l1f!:i'i,\m,.B,2,-5 
This siaierocni draws an arc with a vertex <' "origin"! of (.'20.120) anil radius of 90. xtarr is 6.2 and *•*</ Is >. Radius 
lines arc diawn for start and ■•/!</ 

CIRCLE 1 320,120) .90.1 . ,-d 
This example draws an arc with i wrtcx of <)20. 1 20> anil ndlDt ol 00. Starlit and c«W is 4 A radius liiw is 
drawn lor end. 

10 Pi=3. 141>32b 

20 CIRCLE (32*rl2&) .100.1 »P1 .2»PI ..5 
A wmicirclc is drawn. 

10 CIRCLE (150 ,100) ,100,1 ,-5 »-l 

20 CIRCLE (220,100) ,100,1 .5,1 
Two arcs arc drawn wiih the sarnc aan and tad point. TVic arc with the negative start and end has two rid i us lines 
drawn to the vertex, 1 he are *it» a positive start and end hai no radius lines 

CIRCLE 1320.120) ,I40,.-fl,G.l 
This statemen* draws an arc with a vertex at 1 32(1, I2<)> and a radius ot l+). start h 4 and erd K6.I.A radus line 
is drawn lor itncr. 

CIRCLE (320,120) ,140 tl .0 .1 ..5 
This example draws an an with a vertex of 020.120) and radius of 140. 

Sample Procram 

a SCREEN 

5 CLR 

10 FOR K =10 TO 200 STEP 10 

20 CIRCLE (300 ,100) ■*. 1 . .. .9 

30 NEXT X 

HO FOR Y=10 TO 200 STEP 10 

5ff CIRCLE (300 .1001 .V . 1 . , , . 1 

SO NEXT V 

7» rrjP Z-10 TO 200 GTEP 10 

Bft :IRCLE (300 .10? ) .2.1 .. i .5 

9* VJEXT 2 

1#0 GOTO 5 
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A set of 20 concentric ellipses In drawn wilh a major axis on Y, a wi ot 20 concentric ellipses is drawn with a major 
u\iN on X. tiinl a net iff 20 iiimciitin. liivlcs is diav-u. [Ik clhtxcs aiid iiilIcs in cai.lt ul tin. Ilucc iiuui« a?c 
concentric and the radius varies from 10 to 200. 

CLR 

Clears the Graphics Screen 

CLR 



CLR clews the Graphics Screen. 
Example 

Id SCREEN 

70 CIRCLED 320 .120) . 1 C0 .1 

This program line will draw a circle. Now type: 

clr (ESTER) 
ami the Graphics Screen will be clcired bill (he text Screen will remain unchanged. This can be seen by typing: 

SCREEN I 

GET 

Reads the Contents of Rectangular Pixel Area into Array 

GET(xT.yli-(x2,y2),arTay name 

(xl,yl) are coordinates ct ono ol the opposing comers ot a rectangular pixoi area xl is an integer 

expression from to 639. y1 is an integer expression from lo 239. 
t*2.y2) are coordinates of the other come' of a rectangiior pixel area. x2 Ig an mtoger osproeeion 

from to 639. y2 is an integer expression from to 239. 
array name is the name you assign to the array thai will store the rectangular area's contents, array 

name must be specified. 

ImpuiUiiit Nute; fHSICG [tGUgnbra two syntaxes ul tlie coiiiriiiiiid OhT — the syntax desuibed in this manual and 
the syntax described in ihe Model 4 Disk System Owner's Manual. BASIC recognizes only the GET syntax 
described in the Model 4 Disk System Owner's Manual. 

GKT reads the graphic conients <rf * rectangular pixel are* into a storage array lor future use by PUT (sec PUT). 

A rectangular pixel area is a group of pixels which arc defined by ihc diagonal line coordinates in the GET 
statement. 

The first two bytes ot" array name are set to the horizontal (X-axis) number ot" pixels in the pixel area: the second 
two bytes are set to the vertical (Y-axU) number ol piieb in the pixel area. The remainder ot array name represents 
the status oi each pixel, either ON or OFF, in the pixel area. The data is stored in a row-by-row format, Ihe data is 
stored 8 pixels per byte and each row Harts on a byte boundary. 
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Array limiK 

When liic array is created. BASlCCi reserves spare In memory for each eJemcni ol the array. The size of the array is 
limited by ihc amount of memory available for use by your program — each real number in your storage array uses 
four memory locations (hytes). 

The array miPt he large enough <o hold your graphic- display and the rectangular area mint include all the points you 
want lo store. 

Your GET rectangular pixel area can include ihc entire screen (i.e.. GET(0.0)-(639.239i. array name), if the array 
is dimensioned large enough. 

To determine ihc minimum array size: 

I Divide the number of X-axis pixels by 8 and round up to the next higher integer. 

2. Multiply the result by the number of Y-axis pixels. When counting the X-V axi$ pixels, be sure to include the 

i rvt and i. si pixel. 

3. Add four to the total . 

4 Divfcic by four (for real numbers) or two (for integers) rounding up to the next higher integer. 
The si7.» of rhp nvtwignlar pi«:«*l area is cV'erminPd hy the frjjj rnonrlmaKN used in OPT 1 
Position; uppcr-fcft cornet - sunpoini - txl.yl) 

lower left comer — Crtdpoint — (x2.y2> 

Size i in pixels): width ■ x2-xl + I 

leugili ■ y2— yl+l 

Example 

GETI lfl .101 -(80 .50) »U 
This Mock is ?1 pixels wide on theX-axi* (10 through 80i and 41 long en the Y-axis (10 through 50), 

• For real: 71* = 9* 41 =369-4 = 373/4 = 91 

• For Inleger; 71* = 9*4] = 369 - d = 373/2 = 187 

Depending on the type of array you o*e. you coold *ci up your minimnm-nire dimension statement rhis way 

• Real DIM v(93) 



• Integer DIM VII 18n) 

Examples 

10 DIM UI2A9) 

20 CIRCLE (65.a5> .20.1 

30 GET ( 10.l»>-< 120.80) rV 

An anay ii cieatcd, a lirclc is drawn and stored in the array via tic QUI Maicmcnt's rectangular pixel area*' 
parameters (i.e.. <t0, 10)- (120.80)1. 



20 



Graphics BASIC (BASICG) 



Calculaic the dimensions of the array this way: 
Rceun^ulai i>i\c-. aiui is 1 1 1 * 71 That equals: 

111/8 = 14 -71 = 994 + 4 = 9984 = 250 



[10,10) r 



Rectangular 
Pixel 




(10,80) 



(120.10) 



0?0.80) 



Figure 11 

lfl DIM y<30.33> 

2tf CIRCLE (50. 50) il0 

3tf GET (10 rlO)-<80.B0) »V 

A t\*o*dimcnMonal array is created, a circle is drawn and stored in the array via ihe GET statement'* rectangular 
pixel area 's parameters (i.e.. < 10,10) -(80.80». 



110,101 



ncclanyjla 

Pixel 

Area 




IH0.3G) 



Figure 12 



10 DIM .UZ<5Sd> 

20 CIRCLE (65.35) »50il .1 .3 

30 GET(10r!ai-U20.Be> iV* 

A one -dimensional integer array is treated, an arc is drawn and stcced in the array via the GET statement' 
rectangular area's pa ram e t e rs . 
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GLOCATE 

Sets the Graphics Cursor 

-OCATE (x.y). direct/on 





(x,y) specifies \ne location ol me Graphics Cursor and is a pair of imager expressions. 
direction specifies the direction that the characters will be written 10 the Graphics Screen and has 
Integer value of 0. 1, 2. or 3. Oitocvon le optional; n omitted. is usoO. 

Siitcc the Text Screen and the Graphics Screen cannot be displayed ai the same time, you need an easy wav to 
display textual data on the Graphic* Screen GLOCArb provides pan of this function by allowing you to specify 
where on the Graphics Screen to sian delaying the data, <x.\i, and which direction to display it — direction. 

The allowable values far direction arc: 

— /em rtegrw angle 

1 — 90 degree an^lc 
2— 180 degree angle 
3 — 270 degree angle 

Examples 

10 GLGCATE (320 .170) .0 
This program line will cause characters to be displayed starling in the center of the screen in normal left-to-righr 
orientation. 

100 CLDCATE (320.10) .1 
This program line will cause c btt M Cfa n n> le displayed waning in the center of the lop ponton of the screen in a 
vertical orientation, going from the top of the screen lo the bottom of the screen. 

200 GLOCflTE (630tl20) i2 
This program line will cause characters to be displayed upside down starting ai the right of the screen and going 
towards the left. 

3150 GLOCATE (320.230) .3 
This program line will cause the characters to be displayed vertically, starting al die center of the lower portion of 
the screen inwards ihf inn *tf the sciwn 
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LINE 

Draws a Line or Box 

LINE (x1,y1)-(x2,y2), c, B or BF, style 

(xl,y1) specifies tne starting coord nates of a Hrteand is a pair of integer expressions, (xt,y1) is 

optional; if omitted, the last ending coordinates of any previous command ate used as tne 

slartpoint It a command has not been previously specified. (0.0) is used 
(x2,y2) specifies tne ending coordinates of a line. (x2.y2) is a pair of integer expressions. 
c specifies tne color and is a numeric expression ot either u y c is optional, if omitted. 1 is useo. 
B or BF specifies drawng and/or shading (solid while or sotkj biac<) a Pox. B draws a box and BF 

fills a box with shadng. &BF is optional; if omitted, only a line is drawn. 
sty/o Is Ci© setting for the pattern of a lino and is a numeric value in trie integer range, otytc o 

optional; if omitted, - 1 (solid line) is used, style must be omitted if BF is used 

I .IMF. draw* a line frnm the starting point (si yll to the ending point (r2.y2t 

It ihp starting point is omitted, either 01,0) I* «**<' " » pKVtOUS end coordinate hjs nut been spectrin;! nr the ast 
ending point of the previous annriand is used. If one or both parameters aie off tlie screen, only the part of the line 
»hkh is visible is displayed. 

With over 65.5(10 line style* possible, each style is slightly different. You'll find it's almost impossible to delect 
some of the differences since they arc so minute. 

LINE with Box Option 

The \turt ard mil coordinates ire the diagonal coordinates of the box (either a square or rectanglei When you dun 'I 
Specify the R it RF opiums, the "diagonal" line is drawn When you specify the B option, tne perimeter is drawn 
but not We diagonal line. When you speedy the BF option, the perimeter it drawn, .ind the area bounded by Hie 
perimela b shaded in ihe specified color (c). 

LINE (140 t80 .'-(5*&»2M> '1 'B 



(I4C.80) 




(&D0.2O0) 



Figure 13 
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style 

siv'c <ets ihe pixel anaiiRenicni in 16-bit groups. 

For example. 0000 1 1 1 1 0000 1 1 1 1 (binary), 0F0F (hex), or 3855 (decimal). 

style can be any number in (he integer range (negative or positive) Using hexadecimal numbers, you can figure the 
exact line style you want. There v.i|| always he four numbers in the hexadecimal constant. 

To use hexadecimal numbers for jryfr: 

I Deride what pi*el* ynu want OFF (hit -0) an.) OS <hit= I) 

2. ClxH)«e the respective hexadecimal numbers (from tlie Base Conversion Chan. Appendix D). 

Example 

0000 1111 0000 1111 = &H0F0F 
Creates a dashed line. 



Type 



Binary Numbers 



Hex Numbers 




Long dash 

"Snort-short" dash 
So«id line 
OFF ON 
"Wide" dots 
Medium dois 
Dot -dash 




0000 00001111 1111 
0O0O 1111 0000 1 1 1 

11001100 1100 1100 
MM mi 1111 mi 
0101 0'01 0101 0101 
pOOO 100O0O00 100O 
1C00 100C000 1000 
10001111 1111 10OO 



&H0B08 
&H8B88 
AHflFFfl 



Table 5. Sample Lino Styles 



Examples 

limc -dflo.ao) 

This example draws a line in white (ON) starting at ihe last endpoini used and ending at (100.401. 

LIME (0 .01- (319.1991 
This, statement draws a white line starting at lO.Ol and ending at (319.199). 

LIME( 108 • 1001 - 1 2M ,z$< il . .45 
Tliis example draws a line fiom (100.100) to (200.200) usaig line style 45 I&HO02D) 
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LINE 1 Itftf t 1 00 : - ; 3PV >Z00J r I i .BH00FF 
This LINL naKOKni draws a line with ' long dashes. ' bach dash is elgtt pl*Cs k>nj and there are eight blank 

pixels between each JjnIi. 

LINE ( 100 i 1001 -{300. 200) .1 > .-100* 
Tlib jiatcmcni draws j line from ( 100.100) iv (300.200) using lint Style - 1000. 

LINE 1200 -2001-i -109 .100) 
A line is drawn from ihc Manpoim of (200.200) to ( - 100. I0O) 

10 LINE (30 .30)- (IBP .120) 
20 LINF -r 1 70i1 Sfl> 
30 LINE -O0 .30) 
This program draws a triangle. 

10 LINE -)5« .501 
20 LINE - < 120 .B{> > 
30 LINE -(- 100 .- 120) 
40 LINE -(300O-1020) 
This program draws four line segments using each endpoini k the startpoint for (be rest segment. 



PAINT 
Faints Screen 

PAINT (x,y), Ullrig, border, background 

(x,y) specifies the X-Y coordinales where painting is to begin, x is a numeric expression from 10 

639 and y is a numeric expression from lo 239. 
tiling specifies the paint style and can be a string or a numeric expression, tiling is optional; if 

omitted, 1 is used, tiling cannot be a null string (" ") and no more than 64 bytes may be 

contained in the tiling airing. 
border specifies the OFF/ON color of the border where painting is lo stoo and is a numeric 

expression of either (OFF) or 1 (ON), border is optional: rf omitted. 1 is used 
background specifies the color of (he background that is being painted and is a 1-byte string of 

either (CHRSf&HOO)] or 1 (CHP$(&HFF)). background is optional; if omitted. CHR$(8H0O) is 

used. 



PAIVT shades ihe Graphic*; Screen with iHinf starting at the specified X-Y coordinates, preceding upward and 
downward. 
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-*,.v is the tovidi nalo where pointing is 10 begin mid utusi. 

• Be inside the area to be painted. 

• Be on (he working area of the screen 



For fxamplpr 



IB CIRCLE(320.1Z»> .80 
Zi PA3NTO2O.1Z0) rl .1 



A cixle with a centerpoini of (320.120) is drawn and painted in while 

tiling 
Paint Style 

tiling is the palicrn in a graphic* display. By specifying each piacl, you can produce a mullilude of tiling Styles 
rhi>rrhy simi'liiiitv'. different sh;u)c« of paint on the «recn. 

tiling is convenient io use in bar graphs, pic charts, etc.. or whenever you want to shade with a defined pattern 
There are two types of tiling: 

• Numeric expressions 

• Strings 

Numeric Expressions. There are only two numeric expressions thai can be used for the paint style — and 1 . 1 
paints all pixels ON (solid while) and paints all pixels OFF (solid black). 

To uk miniviic n('n"iiiii«. .i.ui ciihci .i O in |. For example. 

POINT (320,120.1,1 

Strings <Point-by-l*oint Paintlngi. You can paint precise patterns using strings b> defining j multi-pixel grid. 
I" vi- -h. .pixel on your screen ai one contiguous pattern. 

String painting is called "pixel" painting because you are literally painting the screen "pixel- by- pixel" in a 
predetermined order 

You can define the tile length as being one to 64 vertical tiles, depending on how Ions you want ynui pattern. Tile 
width however, is always eight horizontal pixel? (8 pixels representing one K-bit byte). The dimensions of a tile 
pattern arc length by width. Tile patterns arc repeated as necessary Io paint to the specified holders. Because of its 
symmetry, you'll probably find equilateral pixel grids most convenient. 



26 



Graphics BASIC (BASICG) 



Figure 14. Example of an 8-by-fl Pixel Grid 

.Strings allow numerous graphic variations because of the many pixel combinations you tan define. 

Import. 1 1 ■ Note: You cannot isc more than two consecutive row& of tiles which match the background or an 1 1 ley it I 
Function Call error will occur. For example: 

PAINT I 1 .1 ) .CHRKfcHFF J+CHR*(fcHPP > + CHR* tfchtftf ) -tCHRS < *H0« I 
'CHR* I &rlP0>»CHR»<&,H30) .1 tCHlttt MieS ) 

returns an Illegal Function Call error. 

Using Tiling 

Yew may want to me a sheet of graph paper to draw a st>le pattern This way. you'll he ahl? to visualize ire pattern 
and calculate the binary and hexidecimal numbers needed 

Note: Tiling Jiould tinly re txine on either a totally hlaek or white background, otherwise, results arc unpredictable. 

To draw an eiamplc of a ii!e on paper 

1. Take (■ slice! of pupa und duw a giid Bcconfnj 10 lhc size you wont 18 « 8. 24 < ft, ctc.|. Tuich boxci aica on 
thiu grid, hypothetical!;'. ■_-[—■—- — -.- one pixel on your scr««n 

2. Decide what type of pattern you want (zigzag, diagonal lines, perpendicular lines, etc 1. 

3. Fill in each gnd in each 8-pitel-wide row of the tile if you want thiit pixel lo he ON. according to your pattern. 
If you want the pixel to he OFF. leave the grid representing the pixel Wank. 

4. On your paper grid, count each ON pixel as 1 and each OFF pixel as 0. List ihc binary numbers for each row to 
the »idc ul the grid. For example, you might have U001 I0O0 on the fmJ row. 01 It 031 I on ihj second row, etc 

5. Using a hexadecimal conversion chart, convert the hinary numbers to hexadecimal numbers, (bach row equates to 
a two-digit hexadecimal number ) 

6. Insert the hexadecimal numbers in a tile string and enter the string, in your program 
Note: For a listing ol commonly used tiling styles, see Appendix fc. 
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Fxamplc 

Hot example, il you're uorkin| on an 8 x 8 grid and want to draw a plus 



) sign: 
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Binary 


Bex 


0001 1000 


18 


0001 1030 


18 


0001 1000 


18 


1111 1111 


FT 


1111 1111 


rr 


0001 1000 


18 


0001 1000 


18 


0001 1000 


18 



TiJc siring: 



Figure 15. Sxfi Grid 



ft*-CHK*(iH18)*CHR«(6Hie>tCHH*(fi<H18>*CHR*UHFFI*CHR*l6,HFF) 
«-CHR*<&.H13>*CHR«(&Hie>+CHI7*(&H10) 



b 
Border 

Border is the O'FON color of the border el a graphics design where painting ^ [ Q n p aiK | u a numenc expression 
ofeilhcrl) or I. If omitted. 1 (ON) is used ami all the pixels un lite border arc set (solid white) 

background 
Background Area 

Background is j I -byte eharucUi ivhtch describes the background of the area jou we painting. CHR$(&H(K» 
tp#cilii". <j hlack '■!.■■■■■! aid : 1 ■:* -.-I! i ! it n totally uhito background. II background i« noi cpecifed. 
BASICG use* CHRSiAHOO). 

fanning continues until a UuiUei b> readied or until PAINT dix's nut alter Lie Male of any pixels in a \w> Howcvci, 
if pixels in a given row are ik>i aliercd and (lie nle ttiai was to be panned In Uiat iuh matches iliv back^iouiKi tile. 
[Mimait* will continue on to the new row 

Note: BASICG uses Ftcc Manor) for tiling. 
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I ■ \ ,1111 I'll s 



10 CIRCLE (300 ilO0> 1 100 
20 PAINT 3*0, 100) .1 .1 
Piiiivs ihe circle in -mliil while. 

10 CIRCLE ( 1*0 . 100 > ,300 
2* PAINT I 100 .100) .1 .1 
P-jini- ihe Jiicle. Only die visible portion of :he ein-le i* painted cm the screen. 

a CLR 

5 A=l 

S SCREEN 

10 CIRCLE 1320 .1215) t 100 

20 CIRCLE (100.100) r30 

30 CIRCLE (400 .200) .60 

40 CIRCLE (SO0 -70) .50 

50 PAINT (320.120) -A . 1 

GO PAINT ( 100 .100) .A .1 
70 PAINT (400,200) .A .1 

Bfl PAINT (500.70) .A.l 
The tiling sityle k assigned the value I in lin^ 5(A= I) for all PAINT flitemenK. Four circles arc drawn and painled 
ifi solid whilc 

10 LINE I ld0tB0)-(500 .200) ,1 rB 

20 PAINT (260-120) .CHRS ( flHEE)+CHR*< &H77 n-CHR*<00) il 
Paints box in specified lilinj: style isniy sirups. 

10 CIRCLE (300 .100) .101' 

Z0 PAINT (3001100) -"D" il 
TWs example use> ; character constant lu painl Ihc circle in vcmcal blank and while stripes. The character "D" 
<(>1U> OlODl scls (his vertical paiiem: one vcriica) tow ol pixels ON, three rowt OFF. 

10 CIRCLE (320*120) tZ99 

20 PAINT (3ZBtlZ0) t"33ZZU" .1 

30 PAINT ( 100 .70) .*EFEF" • 1 
This exdiriilc draws and ruinis a circle, ihcn paints the area Miiroundiiig ihc circle *vith j diflcrcnl paint style (lift? 
30). Thi* PAINT ^Ulcmcnt's (line 30) sturtpoint i*"*' he outside the border ol" the eirele 

10 PAINT (320.120) .CHR1U.HFF) - 1 
20 CIRCLE (320.120I.1O0.O 

30 PAINT (320 .120) .CMRt(0)+tHR*{ tHFF) .0 .CHRS'RHFF ) 
Paintt ihe wn>e» white . draui a eirrii* and pain* the citrli' wild .1 pattern 

10 PAINT (320 .120) .CHRSfM-IFF) .1 
20 CIRCLE (320.1201 .100.0 

30 PAINT (32* .129) .CHRM 0) + CHR>(fcHAA) .0 ,CHR3(&HFF) 
Palms (he screen while, draws a circle and pains ihc circle wiih a pauem. 



29 



Model 4 Computer Graphics 



10 CIRCLE<3088O .1*0) .100 

20 AMCHR*(6H0l<n*CHR*(^7E>-CHR*UHlB)+CHRS(&H18)+CHR*(&H18) 

♦CHf*»(tH18)+CHR*(6Hl8>+CHR*(&HO0t 
3« (-« 1-. I i Ji'.tf ■ :VV," i (M * . l 
This draws the circle and pttints with ihc k-tlct T Mithin the parameter Of the circle, 

10 A»-CHR»(&H41 >-CHR*(&hZ2 >'CHR»(6Hia>*CHR*(6MeS)+CHR»(6Mia) 

*CHR«<aH22)*CHP*<tH4J ) *CHR* < E.HG0* 
?a POINT (300. 1£0> .6* . 1 
This paints Xs over ihe' ^nlire tciwn 

1 CLEAR 100 

3 CI 9 

5 SCREEN 

10 TrLE*(0)=CHR*C&H22H-CHRS(&H0fc) 

20 "I ILE«( 1)»CHR»(&HFFKCHR*(6H0&) 

30 TILE*(2)=CHR*UH93)+CHR*(liH6B) 

ae t:le*(3) ■cim*(6ii3a t 

50 Tri_E»<a> -CHR*( &HFF » 

60 TILE»<5)-CHR«(fcHF0>*CHP*<&HFfr>*CHRt(&HeFI*CHR»<&H0Ft 

7« TtLE*(B) = CHR*<8.H3C I + CHR* < &H3C > -CHR* ( &HFF » 

90 TTLE*(7) =CHR*< R.H03 >*CHRt(&H0C > *CHR* f &H301 +CH&«( &MC0 t 

90 A> = TILE*(0)*TIi_E*t 1 ) +T ILE* ( Z 1+T ILES I 3 ) *T 1LESI 4> 

+riLE*(5!*TILE*(B)»TILE*l7l 
100 PAINT (3d? .ltf0) , A* 1 

This example jiainis ihc screen wilh * tiling pattern mace up of cigh: individually defined tile strings <i>-7) 



&POINT (function) 
Returns Pixel Value 

APOINTfx.y; 

x speckles an X-coordlnate and Is an imager expression. 
Y specifies a Y-ccordmate and is an integer expression, 
values returned by SPOINT are: 

(pixel OFF) 

1 (pixel ON) 

1 (pixel is otl the screen! 



Tin tfcPOINT luiiuiiiiiid Ic(> y\m icail tlic OFF'ON value til a (tjxcl fioin Hit: strieai 

Vulucj for &POINT thai arc off the screen (i.e.. PRINT &POINT (800-500)1 leturn a - I . signifying the pixel is off 
the screen . 
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Example 



10 PSET(300<100> .1 
20 PRINT &POINT(300tl00> 
Reads and prints the value ol the pixel at the points coordinates (300.100) and displays its value I 



PRINT &PO1NT(3000 tl800: 
Since me pixel it oft ine screen, a - I Is returirrt 



PRINT 6P[JINT(-3000 .1000) 
Since Die pixel is off itic sciccn, a — I is relumed. 

PSET<200 »100 > »« 
PRINT &POINT(2«0 .100> 
Rcodt. and prints ihe Vftku of l he pixel at ih* point's eoordjmtw (100,100) and diiplnyt iU value: (1 

13 PSET(300.100> .1 

20 IF &POINTO00. 1001=1 THEN PRINT "GRAPHICS BASIC I " 
Set? Uk point ON. Since the point's value is I . line 20 is executed and Graphics BASIC is displayed: 

GRAPHICS DAS1CI 

5 SCREEN 

10 PSET(RNO(Ga») .RNO(240> J . 1 
20 IF &P01NI 020 r 120 =: THEN STUH 
30 GOTO 10 
Sen point* randomly until (.'30.120) is set 



5 CLR 

10 LINE(50.B0)-(t20 
PRINT &F01NT( [00 
fcPOlNTU 10 



20 
30 
U0 
■>0 
60 



PRINT 
PRINT 
PRINT 
PRINT 



.10fl) .1 ,BF 

>B0> 

1 80) 



6.P01NT(115 ,30) 

RPOiNnsa.flfli 

6.POINT<130.12&) 

Tlit MiM three pixels are in the filled box. so the value I (one) is displayed fo» each of ihe Matcnicni*. in lines 20. 
30. and 40. The piscli specified in lines 50 and 60 aic nol in Ihe shaded box and OS ore returned 
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PRESET 

Sets Pixel OFF (or ON) 

IESET(*x,r>.»Wtc 

x specifies an X-coordinate and is an integer expression. 
y specifies a Y-coordtnate and is an integer expression 
switch 3pecfies a pixel's OfT'ON code and is an integer of either 
switch is optional; >t omitted, (OFF) is used 

PRESET ■*•!% a pixel cither OFF <0) or ON 1 1 ). dcpaidirt g un »\tuli. If SWiieh Is not specified, lOFf.i is used. 

Value* for Iv y) that are l»rprr ihar Ihr pctr:mvii*r< of thr sawn (i e greater than ft.W fnr r and ?3<J fnr vl an' 
accepted, but these poinh are off lire screen and therefore are not PRESET. 

Note: The onlv choice tor j»r(tft is O or 1 . If y° u cnlor any other number, jn Illegal Function Call error will re ml I 

Example*; 




10 PRESET (50.50) .1 
20 PRESET I5*i50> .0 
Tunis ON the pixel located at the specified coorditiaies tin line 10) jnd turns ihc pixel OFF (in line 20). 

5 SCREEN 

10 PRESET (320-120) #1 

20 PRESET (320.100) tl 

30 PRESET (340.140) »t 

40 FOR 1-1 TO 1000i NEXT 1 

50 PRESET <320.120> 

G0 PRESET (3fl0.1P0l 

70 PRESET (340.140) 

80 FOR 1=1 TO 10*0; NEXT I 
Seti the three specified pixels ON (through (he three PKbSbl statements, pauses, and then lums ihe dine pixels 
OFF. 



PRESETI3000 .1000) .1 
The values for tx.vl arc accepted, but since the coordinates are bevotid the parameters of ihe screen, the pcini is not 
PKtSbT. 



32 



Graphics BASIC (BASICG) 



PRINT #-3, 

Write Text Characters to the Graphics Screen 

PRINT #-3, /fern list 






Item Hat may be either siring constants (messages enclosed ft quotes), string variables, numeric 
constants (numbers), vaiables, or expressions involving all of the preceding Items The items to 
be printed may be separated by commas or semicolons. II commas are used, the Cursor 
automatically advances to tne next print zone betce printing the next item It semicolons are 
used, a space is not inserted between trie items printed on the screen, in cases where no 
ambiguity would result, all purctuation can be omltteo. 



PRINT if 3, is used to write lent characters to the Oraphic* bcrccn. I hit is the casicti «uy to display icxtu.il Juu 
on tfie Graphics Screen. Characters are displayed Marling at (he curreni Graphics Omar urtil going in the direction 
tpeofipd hy the most recently ***cut*J fiLOCATT command. If u CLOT ATI? command Wtt not • -■ i ■. i prinr lo 

the PRIVT #-3. cemmand. a direction of is assumed. 

rH!NT#-3. will only print text characters (see Appendixes of the Model 4 Oitk System Ovtua 'a Mminuli I Mil 
diaraefcr displaced in ihc of 2 Jircciion uses m 8 * 8 pixel grid; each character displayed in the I oi 3 direction 
■9tt a 16 x 8 (aid Kneculing this command will position ihc Graphics Cursor to the end of the last character thai 
<«-as displayed. 

Displaying; text in direction (I engages a wraparound feature If the end of a line is reached. BASICd u>ll roniinur 
toe display on the next line. If ihe end oi the screen h reached. BA.SICO Will continue ihc display at the beginning 
of the screen without scrolling. If there is ni* enough room in display ai least one character at the current Graphics 
Cursor, an Illegal I unction Call error will result. When displaying text in othei directions, an uttcnipc to display text 
outside of the Currently defined screen will cait*e an Ilk-gal Function Call error io he given 

PSET 

Sets IMxel ON (or OFF) 

PS£T(x,y),switCh 



i 



x specifies an X-coordmate and is an intege' expression. 
y speciiies a Y-coordinale and is an integer expression. 

switch specifies a pixefs off on color code ana is a rumerc exp-ession oi (OFF) or 1 (ON). 
switch la optional, II entitled, 1 (ON) is used. 



PSKT seis a fi«el riihcr OFP 10) or ON 1 1 ). depending on xtvtrch, If vinrr/i is not .specified. I tON > b used. 

The only choice foi switch with PSET isO and I. If )ou enter any other number, an Illegal Function Call will occur. 

Values for l.x.y> that are larger than the parameters of the screen (i.e.. gteaier than 639 for x and 234 for y\ are 
accepted, hut these- points are off the icreen and therefore are not PSKI . 

Note: The only distinction between FKbMil and PSET m UAMi.O is the delauit value tor smicft. the deiauli \alue 
lor PRESET is 0. while the value loi PSCTiS 1. 
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Examples 

10 AM 
Tum> the pixel located ,n ihc specific*! utonliiwies ON. 

19 PStI <ftND(640) rFfND< 2afi>> > .1 

20 GOTO 10 

Pixels are. randomly *a to 1 (ON) over the defined urea (the entire «recn>. 

P9ET ( -300 . 200) .1 
Th* VllaM f'n t>.\) »n» arepptfd. hm idnM il i* Ivyond the paramctcrc <if ihf icrwn. ihf pixel %k not *<*i. 

10 PSFT (320 .120! »1 
70 ai=INKFV«; IF Q4= ■" T HFN 70 
30 PSETO20,12fl> ,0 
Linr 10 sets ("lunn ON") a pixel; line 30 resets ("mm.* OFF") the «me dot. 



PUT 

Puts Rectangular Pixel Area from 

Arrav onto Screen 



• 



(xl.yl), amy name, action 



(xl.yl) are coordinates of the upper- oft corner cf the rectangular pixel area which rs to contain a 
graphic display, xl is a numeric expression from to 639 aid yl is a numeric expression Irorn 

to 239. 

array name is the name ol an array (previously specified by GET) thai contains the data to be 

written into the 'ectarguiar pixel area. 
action determines how the data is written inlo the rectangular pwef area and Is one of the following. 
PSET Sets or resets each point in the specified pixel area to the value in the specified 

array. 
PRESET Sois or resets each point In the specified pixel area to the inverse of the value in 

the specified array. 
XOR Performs a logical exdusive-OR between the bits In the specified array and the 

pixels in the destination area aid disolays Ihe result. 
OR Performs a logical OR between the bits In Ihe specified array and the pixels in the 

destination area and displays Ihe -esuil. 
AND Hertorms a logical ANU between the bits in the specified array and the pixels in the 

destination area and displays the result. 
action is opiora.. it omitted. XOH is used. 



Important Note; UASICXJ rccogrtfte* (wo nyntMCS ik" it* u.mmaiid PUT — the >) nUx described in this in<*iu,il and 
ihc syntu* , ■ . . '■-■■■I it Ihc Model 4 Disk S>i/nri Owner i Manual. BASIC recognizes only ihc PUT syntux 
d^tcrihpcl in tht* \1t>dc\ 4 lii*k Vvctom Qwnir's Manual. 
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The PUT function puis t rectangular pixel area stored in an array, and defined by GbT. onto the screen. C1HT and 
HIT work jointly. Together, they allow you to "get" a rectangular pixel area which contains a graphic display . 
store il in an array, then "pur" (he array back on the screen later. 

Remember that heforf you Cil : .T or PUT. you have to create an array to store the bit contents of the display 
rectangular pixel area. The size of the array must match that of the display rectangular pixel area. 

PUT move;* your GET rectangular pi«el area to the sianpomt in your PIT siatemcm and ihe. si an point is ihc new 
upper-left corner of the rcclanRiilta pi*cl mea. 

To illustrate; 

5 DIM HO) 

10 GET (2<3)-<7.7> .U 

100 PUT 50 .50) ." .PSET 

After GETiing. PUT this rectangular pixel area 10 (50,30). Tbe new coordinaies are. 

(50.50) 151 .50) (52.50) (53.50) (54.50| (55.50) 

(50.51) (51.51) (52,51) (53,51) (54,51) (55,51) 

(50.52) (51.52) (52.51) (53.52) (54.52) (55.52) 
(50,33) (51.53) (52,53) (53.53) 154.53) (55.531 
(50.54) (51.541 (52.54) (53 -54) (54.54) (55.541 

Tlie icCfdiiKul* pixel area 1(50.50) - (55,54)) is exactly the same pi*d size as (2.3) 17.7); only the iocaiion is 
dirferenl. 



(2,3) 



(7.3) 



"GFT" ^ 

RECTANGULAR 

PIXEL 

AREA 



<2.7t - h. ^ 



(7.7) 



__ (50,50) 



(55.501 



"PUT" 

RECTANGULAR 

PIXEL 

AREA 



(50.641 



(55,541 



Fiquro 16 

Willi PUT. aeiion can b«- PSET. PRESET, OR. AND. or XOR 

lhew operators are used in BA5ICG to test the OFfVON (or 0/1] conditions of a pixel In the original pixel area and 
the destination pixel area. 
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For example (using PSfcT) Ihe pixel is sei ON only if ihe hit in the PL'T array it set ON If the hii is OFF ihe pixel 
is turned OFF (resell 



Willi prtUSlTT. tin: piiscl ia ad ON unl> if ihc bil in Ilic PUT urtay ia 
OFF (f«ei). 



;i OfT. If Iht bil il ON, the pincl ia lurncJ 



Using OR. the pixel is set ON if the bit in ihe PIT array » ON or the corresponding pixel in the destination area is 
ON. In all other cases, the pixel is turned OFF (reset). In other words: 



OR 


OFF ON 


OFF 


or~ on 


CN 


ON ON 



With AND, (he pixel Is sei ON, II biKh the bit in Hie It' I array ami the corresponding puel in the destination area 
die ON. In all mini uasca. ilit piAcI is mined OIT (icmm). In utliu vuid.s 



AND OFF 


ON 


OFF OFF 


OF = 


ON OFF 


ON 



Using XOR. ihe pixel i* sol ON if either the bit in the PUT array or Ihe om'spondinji pixel in the destination area 
(hui nm hoihl is ON In all other caves, ihe pixel is turned OFF (reset)- In other wonls: 



XOR 

OFF 


OFF 
OFF 


ON 
ON 


ON 


ON 


OFF 



The following BASICG progiam will graphically illustrate the diffcienccs between ihc various action options. Since 
the program will give you a "hard-copy ' printout ol the action options, jou'll need to connect your I'KS-KU to a 
graphic printer. See "Graphics Utilities" latci in this manual lor more details on using the Computer Graphics 
package with a printer. 
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io 

20 
30 
40 
50 
BA 
70 
80 
90 
1210 

ue 

120 
130 

!<ie 

ISO 

J 00 
165 
17fl 
175 

sae 

190 
200 
210 
220 
230 
240 
230 

zao 

270 



PRESET' . "PSET" , "XQR" 



♦251 »l >B 



3ATA "OR" . "AND 

CLR : SCREEN 

FOR Y= 10 TC 210 STEP 50 

ro« «- *> tc aioc step z*fl 

LINE <X*a0,Y-5>-<X+10O.Y 

*jf*t x 

LINE (5».V)-(S0 »Y+itf) .1 .BF 

FOR X= 700 TO £00 STEP 20fl 

LINE <X+50.Y)-(X+70,Y+20) .1 -BF 

NEXT X 

NEXT Y 

OIM V(100) 

GET (50 .10) -(90 .30) -V 

FOR N=l TO 5 

R = <N-1)*3+1 

READ A* 

GLDCATE ( 136.Rtl0> ,« 

PRINT n-H . Ai : 

CLOCATE <3S0.R«10l . tf 

PRINT n-3 i "="i 

ON N GOTO 200. 

PUT (£50.10) . 

PUT (£50.60) r 

PUT (£5011101 t 

PUT (£50>1S0I , 

PUT (£50i210) t 

NEKT N 

SYSTEM "GPR1NT- 

SCREEN 1 



2!0> 220 

U.OR: 
'.'.AND: 
'J. PRESET 
y.PSET: 
V.XQR 



230, 
SOTO 
GOTO 
GOTO 
GOTO 



2J0 
250 
250 
250 
250 



H 0R C 
1 

H PRESET |~ 



ani: 



p:et 



W 



H x0R E - 



a 



Figure 17 
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Hii.is and Tl|is about PUT: 

• An Illegal Function Call error will result ll you attempt to PIT a rectangular pixel area to a section of trie screen 
wmen is totally or paiiallj Beyond the parameters ut the screen, r-or example: 

GET<5«t50i-H50>!50> .V 
PUT<2ft0.2ft0» ,V rPSET 

returns an emu hecuuac llio ivciungului pixel area cannot be ph>-<icdlly moved (■> rttc t-pctificd loctinpular pixel 
arcade . (200,200)- (3O0.3OO)). 

• If yoii DM PIT with :i wewport [tet VII- W). all conrilinates must he within (he parameters of the viewport or 
you'll get an Illegal huncuon Call error. 

Examples 

PUT with PSBT 

10 Din VZ(G3) 

15 SCREEN fl 

1? CLP 

20 CIRCLE (30.30) .10 

3ft get ( 10 .i0j-tfl0 .ae> tUi 

dft FOR 1*1 TO 50?: NEXT ] 
5ft CLft 

Bft PUT ( U0iU0> »V3 rPSET 

7ft FOP 1=1 TO 506: NEXT I 

In (his example, the circle is drawn, stored, moved and re-created. FirM the while*bordeied circle appears hi thc 
tpp-r \fti romw nf the screen fpomirn (JO, JO) — program lin# 20). Afvr a couple of weond* (hacauce of the d*l»y 
loop), it disappears and then reappears on the screen — (110.110)— program line fl> 

What apcdfktUji happened is; 

1. An array was created (iine 10). 

2. A circle wns drawn (line 20). 

3. GET The cirele which was wiihin -he source rectangular pixel area, a* specified in the CI:T statement's 
parameters is stored in the array (line tt)) 

4. Tlic screen is cleared (line 50). 

?. PUT — The cirele from the amy was PI l into th? destination rectangular pixel area as specified in the PUT 
statement (line r0) wiih die PSKT option. 
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a 

6 
10 

Efl 
30 

a* 

60 

/tf 

80 
90 



SCREEN 

CLR 
DIK VX1701 
LINE (£•*! 
LINE (B0.1 



l) 

e> -t zo .6* 

>- <B0 .90) 



line 00 .3fl> -(30 -ea> 

LIME ( 10 .5)-! 10 .60 I 
GET I0i0>-(100»100) >UZ 
FOW 1=1 10 1000: NEXT L 
PUT (180.120! .VZ.PSET 
F0f> 1 = 1 TD 1030: NEXT I 



Dmis four liiv.. GtT itniet, the Unss « the rectanguLi pixel area PUT move* ih* line* to another rcctuneulur 
pixel area. 



SCREEN 
Selects Screen 



i 




SCREEN lype 

fyp« specifies which "Screen" io use and is a numeric e»presslon of elttier or 1 
■ Graphics Screen 
Text Screen 



STRKKN IdS you so the proper screen SCREEN selects the Graphics Screen: SCREEN I selects the Text Screen. 
Any value other than nr 1 with SCRFEN pives an error 

SCREEN is convenient in use when you want Id display euhcr a Graphics Screen or a Tew Screen, lor example, 

you ma; have run a program and ihen uddcJ in it With SCRIiLN, you wa remove the graphics dbpUy. udd to the 
program, and ilicn r.lum l»» the Graphics Screen. 

Wltcnevci BASICG tries in display * cliauclci on ll:c Text Sown (like in an INPl.T or PRINT slJlemenit. the 
screen is automatically sei io the Ictt Screen. II Ihe program is still running alter executing ihe statement, BASICG 
will reven io the screen thai was in effect prior io executing Hie statement. 

Examples 

10 SCREEN 1 

20 LINE ( 150 .150) - (200 .203 > 
The computer •VMCUtK ihn 1 short program but the Graphics Screen cannot display the cranhici because of the 
SCREEN I cnmmanit. To display thr* line type: SCREEN fEnTEBl 
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10 CLR 

20 SCREEN 1 

30 LINE! 10 .10) -(255 . 191 > 

4fl LINE<0fl91)-(255.0) 

SO fiS=INKEY$: IF ft*=""THEN 50 

GO SCREEN tf 

70 A*MNKEY*: IP fl*»"" THEri 70 

Q0 GOTO 10 
The computer executes the program (draws two intersecting lino) but the screen ijntKit displaj the graphics became 
of SC'HKEN I By pressing any key, the graphics ure. displayed because of SCRBKN 0. 

5 CLR 

10 CTIrTI F( 700 . J00) ,U*0 
20 PAINT <200rl00> t-44" rl 
No* run the program and type: 

SCREEN dHK 
This command turns the Oraphics Screen ON. By entering the SCREEN I and SCR I; EN commands, you can 
alternately turn the Graphics Scteen OFF and ON without losing the executed program display 



VIEW (Command) 

Redefines the Screen (Creates a Viewport) 




VIEW("x/,W)-txZy2). c.b 
(xl.yl) are coordinates ol the upper-left corner of a rectangular viewport area xl is an Integer 

expression between and 639. yi ia an integer expression between end 239. 
(x2,y2) ara coordinates ot the lower right comer of a rectangular viewport area. x2 is an integer 

expression ><= to xl and < - 639. y2 is an integer expression > - yi and <239 
c specifies the color of the interior of the viewport and is an integer expression of either or V c 

optional; if omitted, the viewport Is not shaded. 
b specifies the border color of the viewport and is a numeric expiession of either or 1. b Is 
tional; il omitted, a border is not drawn. 



VIEW creates ;i "viewport" which redefines (he screen parameter* (0-M 1 ) for X and 0-239 for Y). This defined area 
ihcii becomes the only place you can draw graphic* displays. 

If you enter moti- ib.in one viewport, you can only draw displays in tht* tan defined viewport 

SlDCC V1HW icdcHiics die SCREEN. 

• CLR clears the interior of the viewport only. 

• If you PSET or PKEShl points, draw circles, etc., beyond the parameters ot the currently defined viewport, only 
the portions that are in the viewport will be displayed. 

• II' yon iry to read a point beyond the viewport Kith POINT), it witl return a - 1. 

• You can only GET and PUT arrays within the viewport. 

• You can't PAINT outside the viewport. 
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The upper-left comer of ihe vjewjwn is read as (0.0) (the "relative origin") when creating items mstdc the viewport 
All the other cuordiiuics arc read relative to this origin. However, the "absolute coordinates" of the viewport) as 
tlicy a:c actually defined on ihe Graphics Cartesian system, art retained in memory jnd can be read using * II. W as 
a funaiuu. 

Every viewport has absolute and relative coordinates and graphic displays are drawn inside using the relative 
coordinates. For example; 

10 UIFU t 100 . l#lfl)-< 7&<? .7001 .0 , 1 
20 LINE I30.l5>-<e0 -S0> .1 



(100,100) A.C. 
(0.0) R.C. 



(100.200) A.C. 
(0.100) R.C. 




(2O0.10O)A.C. 
(100.0) R.C. 



(?00 ?00) A C 
(100.100) R.C. 



Figure 18 



Note: After each of the following examples, you'll have to redefine the entire screen 10 VIKW (0.0) -(639.2391 
before performing *i> oilier Graphics funclkins. 

Fxamplcs 

UIFU ( 10«.100>-<200 .200) .0.1 
Draw* i Mark vii^pro iriivil- OFF) rh:ir is omlini*ii in white (hnnler pixels ON). 

VIEW < '.00 .l0C>-<200 .200) .1 .1 
Draws a white viewpurt ipixcls ON) that is outlined in white (border pixels ON). 

VIEU (50>50>-(108il00> .1 ,0 
Draws a white viewport ipixcls ON) that is outlined in Hack (Nirdei pixels OFF). 

10 UIEU I ie.l0)-(600.200) r0 .1 

20 UIEU I5e.50i-U00>100> .0.1 

30 LINE(RND(500) (RND1190) )-<RND»500> .PN0( 190) ! 

00 GOTO 30 
First you Uelined a laige viewport dial almost covered ihe enure screen. Nc*l you Ucnncd J smaller viewport. The 
RoridiHn command dnws lines within the specified paidincicis hui only ihe segments of die lines ihai aic vuliin ihe 
parjmalcfs of Ui* *m<dlct viewport are visible ■insc il war. -.perilled last. 

10 V1EU<90,O0>- (300 ,200) .0.1 
70 UlEUf 100 .901.(300.170) .0 .1 
30 UIEU(120.I0«)-(200 .200) .0.1 
00 IMEU(30<30) - ( 100 il00 } .0 . 1 
Draws (our viewports All further drawing takes place in the last viewport specified 
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10 VIEH<Z10.B0>-(a20.l60) .0 il 
20 CIRCLE (300 -122*) .1B0. 1 
30 LINE* 15-15)- (G0.G0> , \ 

1* cipclc(O0 .aa> ,s& ,i 

50 LINF(a0.30)-<5»0,3fl) ,1 
Draws a viewport Draws a circle hiit only a portion is within the parameters of ihe viewport. This circle's 
ceitterpoini is relative lu the upper left corner of the viewport and nor to the absolute coordinates of the graphics 
Cartesian system. A line is drawn which is totally within the parameters of the viewport. Another eirck is drawn 
which i* totally whliin ik parameters of the viewport. Another line is drawn which is only partially wiihin the 
parameters of the viewport. 

10 VIEM ! 190*7?)- (440 .180) <<? -1 

20 CIRCLE (300.140) .170.1 

30 CIRCLE t 100.230! .400.1 

40 LINE t 10 »10>-(500.230» .1 
Duma <j viewport. A click is ilidwu imi only a portion is within ihc parameter* of tne viewport. Another circle ts 
drawn and a larger portion is within the parameters of the viewport. A line is drawn but only a *cgmcn: is wiihin the 
parameters of the viewport. 



&VIEW (function) 

Returns Viewport Coordinates 



f 



a view ( P ) 

(p> specifies a coortfnate on ine X- or Y-axs and is ar integer exptession between 0-3 returns 
the te'i X-coordlnato ot vow viewport, i reiums tne upper Y -coordinate. 2 returns tne right 
X-cootdinote. 3 returns the tower Y-coordlnate. 





&VJEW returns a corner coordinate of a viewport II is important to note the parentheses are noi optional If you 
enter the &VIEW function without the parenthese*. a Syntax Error will result. 

To display one ot the lour viewport coordinates, you must enter one ot the following values for p: 

• returns the upper left X-coordinate 

• I returns the upper left Y-coordinatc 

• ? returns' tlv lnw«*r right X-coordinaic 

• i returns Ihe lower right Y-coordinatc 

Important Note: When you have defined several View p orts, &VIISW only ivtuins (lie coordinates of the la»;-dcilncd 

viewport 
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Examples 

Set tip tte following viewport: 

VitHl 1BB»BBJ-U2»rl30l tft r 1 
Now type: PRINT 4YIEU<tf> &H1S 

r> splays: l 00 

Type PRINT &VIEWU) CtKtttt 

Dispkys: 00 

Enici: PRINT (.VIEW (2 J (fflEfi) 

Type PRINT iMIEWO) CWTERj 

l>spbys: 1 50 

Set Up lie fallowing VJCWpuilM 

VIEW! 100. 80) -(220.1301 .0.1 'ENTER 
v:EHI^M»»W#)-IJ50.Z2») .0.1 iHlfflJ 

Nowcmcr: PRINT &VIEH(0) (titTtW 

I>sptays: 250 

Type: PRINT iUIEWCl) [fcNTtfl. 

Diplays: 1 70 

Now type: PRINT iuieu(2> 

Displays. 350 

Type PRINT &UIEWI3) 

I>spby»; 220 
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3/ Graphics Utilities 



There arc eight utilities included with the TRS-XO Computer Giaphio package which arc intended to he used as 
jtard-ak>ne programs. However, if you are an experienced programmer, you can use these with BASICG and 
FORTRAN. The source-code for csch utility, that illustrates Giaphics programming techniques is listed later in thi- 
section. 

The Graphics Utilities let you: 

• Save graphic displays to diskette. 

• Load graphic displays from diskette. 

• Print graphic displays on a graphics printer. 

• Turn graphics display OFf 01 ON. 

• Clear graphite incinui). 

To use these utilities from HAStCO, use the SYSTbM command followed by the name of ihc utility in quotation 
marts (e.g.. SYSTErTGCLS" WSR) and control returns to BASIC Ready. From TRSDOS. enter the utility 
directly, without quotation marks (e.g.. CCLS .EHTER)) 

To coll these routines from HWTRANJ. teethe Subprogram Linkage section of your TRS-SO Model 4 FORTRAX 
Manual (26-2219). 

Utilities 



Command 



Action 



GCLS 

GLOAD 

GPRIM 




Clears graphics screen 
Loads graphics memory from disk© 
List? g-aphics on the printer 
rlnts graphic display on the printer with 
90 degree rotation. 

Prints -jrtpnc display on trc printer wnhout 
90 degree rotation. 

rns Graphic Screen OFF. 
Tuns Graphic Bcroo" ON. 

ves graphics memory to diskette 




Table 6 



GCLS 

Clears Graphics Screen 



GCT-S clears the Graphics Screen hy crating the content! of graphics memory corresponding to the visible Graphics 
Screen. (JCUJ erases graphics menory hy writing zetoei UH-h) to ever)' bit in memory. OCXS docs not clear the 
Test Screen I video memory). 
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Examples 

When TRSDOS Ready is displayed, type: 

gcls flKSH) 

ot when the BASICG READY ptonifK is displayed, lype: 

SYSTEh"CCLS" (aTEB) 
or 

108 5YSTEM"GCLS" 

GLOAD 

Loads Graphics Memory from Diskette 

-" 

filename consists ol a name ol up 10 

exf Is an optional name-exienson. ex! is a sequence ol up 10 tnree numbers 

.password is an optional password: password Is a name of up to eight character: the first 

character must bo a loiter. 
:(* rs an optional drive specification; d is one of the digits th'Ojgh 3. 

Note: There cannot be spaces within a file specification. TRSDOS laminates the file spccficalion at the first space. 

Wlth GLOAD. you can load TRSDOS (lies that have graphic contents into graphics memory. These fifcs must have 
been previously saved lo diskette using GSAVE, 

Examples 

When IKS DO!) Ready is displayed, type: 

GLOAD PROGRAM/DAT .PASSUORDiO 'ESSE 
or when the bASICCi READY piompi Is displnyed, type: 

SYSTEM'GLOflD PROGRAM" ("ENTEfti 




or 



tao sy^tfm "HI. n An PRnnpflrr 



GPRINT 

Lists Graphic Display to Printer 

QPRI 



IPRINT 

(tPRIMT leu ynii print graphic*: memory nn a graph*** in'nr-;i(t(1r*«*.hl( , > primer. *nirh as Radio Shark'* DIvUMIKi 
(20-12531 or DMP-200 (26-1254). Both of ihese printers have a 9'/:" carriage. However, distortion will occur whet: 
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Graphic routine* arc primed with GPRINT. This is because GPRINT is out a uuc pixel-by-pixcl "Seven Dump" 
since the pixel 117c and spacing on the screen is different from (he pi*el &ize and spacing on the Printer. (JPKINl it 
a point of departure for y<xi to ohtain hard* copy representations of graphics. 

To print graphic display s, GPRINT turns ihe contents of the Graphic Screen clockwise 90 degrees and then prints. 

However. FORMS must he uvd to set printing parameter*. 

See your Model 4 Disk System Owner's Manuel and printer owner's manual for details on setting printing 
pamnoen. 

Important Note! Do mil press S0HK 1 while GPRINT is executing. 
Examples 

W«i TRSDOS Rcd> Is displayed, Ljp*l 

CRINT (EHTEfl) 

or when the BASICG RKADY pr<impt is displayed, type: 

SYSTCM-GPRINI" (ERTIK) 
or 

1*0 SYSTE*M"GPRINT" 

For a complete GPRINT sample session, see Appendix D. 



GPRT2 

Print Graphics 



GPRT2 is similar to GPRINT but i* designed lor use with wide-carriage (15") printers such as the DMIMUU an d 
DMP-^OO 

GPRT2 is different from GPRINT in that I he image is not rotated 90 degrees and a different aspect ratio is used. 

If GPRT2 does no! produce the quality of printout you desire, try GPRT3 or GPRINT. 

Important Note! Do not press 1DWAT0 while GPRT2 is executing. 

Examples 

When TRSDOS Ready is displayed, type; 

GPRT2 EftTEfti 
or when the BASICG READY prompt is displayed, type: 

SVSTEM"CPRT2" IEHTER) 



ll 



SV5TEM"GPRT2' 
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GPRT3 

Print Graphics (Double on the Y-Axis) 



GPRT3 rs simitar to GPRINT hui is designed tor use with widc-carriaee < 15") printers such as the DMP-400 and 
DMP-5U0. 

GPRTJ is different from GPRINT in 1 1 -. . t the image is not rotated 90 degree* jnd u different aspect rutin is used 
If GPRT.' doc* not produce the qualify of prim-out yo*i deiue. try CPRT2 or GPRINT 
i m porta 'i Vitc* Do not press fBflfW) while GPRT3 i* executing. 

Examples 

Wtien TKSOOS KeMy lg displayed, type: 

GPPT3 TRTEnj 
nr wlcn il»c IJA1SCG READY piompi is displayed, type; 

SYSTEM' GPRT3" GffiED 



or 



10?) SYSTEM" GP RT 3 ' 



GROFF 

Turns Graphics Display OFF 



GROFF 



GROFF llltm ilic Oupliics Street: OFF GROFF is different from GCLS aiiil.^: OROFF simply icmovcs the Graphics 
display withoui erasing ihc content* of graphic memory. GCLS completely clear* graphics memory by writing «roe»c 
(OFF) to every bit in memory. 

Examples 

When TRSDOS Ready :.s displayed, type. 

GROFF flHTEB) 

in when ilic DASICG READY piuniut is displayed, type; 

SVSTEM-GROFF" (EKED 
or 

IOC CYGTCM"Gf?0rr" 
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GRON 

Turns Graphics Display ON 

GRON 

GRON turn* the Graphics Screen ON. 

Examples 

When TRSDOS Ready is displayed, type: 

GRON iftTEfl; 
91 tttWn the BAS1CG READY prompt is Ji.splaycd. lypc: 

SySTEirGRON" iEHTEBj 

IGfl SYSrErTGRQN" 



><• 



GSAVE 

Saves Graphics Memory to Diskette 

GSAVE tllei 






filename consists of a nams of up lo eight characters; Ihe first character must be a letter. 
iett is an optional name-exlension: ext is a seauence of up lo three numbers c letters. 
.password is an optional password; password is a name of up to eight characters; the firsi 

character must be a letter. 
;d is an optional drive specification: d is one of the digits o through 3. 



Note; There cannot be spaces within a file specification. TRSDQS terminates ine ule cperificwUifl >m the firsi «pfle* 

With GSAVfc, Hie contents in graphics memory is $aved under a specified filename which follow the standard 
TRSDOS iutniat To load llic nic tuck into memory, use CLOAD. 

Examples 

When TRSDOS Reidy ic displayed, lype 

GSAYE PROGRAM/CAT. PASSWORDS 1 EHTEH) 

in when the BASICG RFADY prompt is displayed, lypc 

SrSTEfTGSAVE PROGRAM' Sflffii 
or 

100 SYGTEM-GSAUC PROGRAM' 
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Graphic Utilities Source Code Listings 



uDOC: 

ooocz 

O0QC3 
Q0QD4 
uOOGS 
OODCfa 
□Q0C7 

O0QC9 
O0O1O 

dd:ii 

O0Q12 
O0Q13 

DOGU 
QOQlS 
QOOlb 
QD017 

nooia 

00020 
O0D21 
00022 

203:3 
jQji4 

00024. 
00027 

ODoze 

00029 
O0O30 
00031 
DO 032 
00033 
O0034 
QQ03S 
CQ036 
00037 
OQ038 
0003T 
0004Q 
00041 
00042 
□ 00.43 

GOOii 

O0Q45 
0004b 
00047 
O0D49 
CD049 
OOQbQ 
DD051 
0QQS2 
LJQC53 
G0C54 

CCGSb 



; GLOAO -- Save 9-«i»H cl difplay to dl si 

iHode I 4 a. 



TRSQCS 



DSECT 
POINT 

M a i. u ; 

MACRO 
LO 
RST 
ENQM 



3FSPEC* 

30PES ■ 

SREAC' 

3CL0SE> 

3ERRCR- 

SGSPLr- 



xi 
Yi 

□ATAt 
STATES' 



gloa;i 



roiv 



26LJ0H 
SHOP'.NOMAC 



A.M 

2 5- 



TKSOOS SvC Equates 

EQU 78 

EQU 59 

C3LI 67 

EQU 60 

EQU 26 

EQU ID 

Port Equate* 

EQU BOH 

EQU 6 1 H 

EQU az- 

EQU 63-t 

Ma i n Pr cs'*>" 

PUSH HL 

LO A.10H 

OUT <236>.A 

LO BC13SBH 

LO HL.CRTCtlS 



I lest a ' 1 If ipse 
lOpcn an existing file 
iPeed a ttiord 
iClQM • t I I* 

iCispla. ar irror nessagt 
•Display a message 



•Save pointer fro* coimand line 



I Turn on CRTC ports 

■Load Lb Regs and -_ i to control aD-t 

iLj*d backward* 



This code program* tH* CRTC Chip for 80 x 24 scree- 
Only required tc Model 111 Graphics Boards 



•Select Oata Register in CRTC 

iGet the data 

•Store that in the CRTC 

iMoue (O - ■■ - r . t entry 

iOetr««ent ccuntv 



OJT 


(C),3 


LO 


A,(HL) 


OJT 


(137) .A 


OEC 


HL 


OJNZ 


F01V 


LQ 


HL.r:o 


LO 


( HL > . OOH 


LO 


OE.HL 


INC 


OE 


LO 


BC.3S 


LOIR 




POP 


HL 


LO 


A. 00* 


CP 


(HL) 



tPaint o: lh« FCB 

'•7»ra the buHfr 

•Build cestiratlDn pointer 

• Copy first byte to second r : s i t r. r 
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nnn*7 


Jfl 


Z.EPBOP 


□03S8 


LO 


OE.FCB 


CO 059 


TRSQOS 


3FSPEC 


nnrun 


JP 


N7,B0MB 


00041 






OOOoZ 


LO 


HL.BJFFES 


000*3 


LD 


OE.FCB 


DOOM 


LO 


BtO 


C0Q6S 


TRSOCS 


aoPEsj 


OOUfcfe 


IP 


NZ.BOnB 


000*7 






□0Q6S 


LO 


A.0B3H 


00049 


Cl IT 


( STATUS > .A 


00070 


X09 


A 


00Q71 


OUT 


(X) iA 


DO 72 


OUT 


(») ,a 


00073 


LO 


E.A 


03074 


LO 


o.ao 


rim^ 


LD 


B.7=. 


03076 NXTREC: 


OE 


03077 


LD 


OE . FCB 


03076 


IPS DOS 


Boeao 


Qr 079 


POP 


OE 


03030 


JP 


NZ.&0M6 


00081 


LO 


HL .BUFFEB 


CO 032 


LO 


C.B 


00093 


LO 


B.Q 


0DG9'. NCRPH! LO 


a , c m_ ) 


00 95 


OUT 


<OATA) .A 


00086 


IMC 


HL 


CQ0B7 


:uc 


e 


cooes 


LD 


ArE 


CO OB 9 


c» 


a 


CO 090 


JP 


VJ3.EECPM 


C0091 


XOR 


A 


C0Q92 


LD 


E.A 


CO 09 3 


OUT 


<X) -A 


DO 094 


LD 


A.(VPCS) 


CO 095 


;v: 


A 


CO 094 


LD 


C r POS > • A 


C0097 


OUT 


<Y) .A 


ED098 EGPFH. OJNZ 


NGPP* 


CO 099 


LO 


B.C 


□DlDD 


3JNZ 


NXTREC 


caioi 






C0102 EXIT LO 


OE.FCB 


C01D3 


TRSOOS 


SlLOSE 


C01Q4 


LD 


A.OFCi* 


poias 


OUT 


(STATUS) .A 


C0106 


_0 


A,(EFLA6! 


00107 


_0 


L.A 


0010Q 


-0 


H.D 


D0109 


tP 


H 


Bona 


BET 




001 tl 






00112 


E--o- 


• H US 


00113 






00114 EPPCP- 


M_ , 3ARM 


001 IS 


TRSOOS 


30S»LT 


oant 


JP 


EXIT 



iHgvp I i I spec to FCB and do * «y»la- eh*el< 



Op**> til* It it e* si6> else create o» 



i«tatu» • ' nc X after writ* 



; inl t X L r ta ie-a 

lC0(jnt*r *0r X value* 
iQQ X values 

ITS . * • rtrnrHl *-■ intirl lerPtn 



l»»»d ■ rm-n-** +rnm rf »k 



i2S6 bytes P#r raced 



m«»9 rQu7 

l*4»»t rcu fi*t X to t»^« 

iGa set next g-apKcs byte 
•Ga read next dis« record 

iStotw* — fiiphitt o+t' no »«it«i »a i»e 

;Petu-n to TRSQOS 0' BASIC 
■ Co»r I • i « 



•>' 



0C117 






iviuuti ■* wumpuiei uidpiu 


og lib 


B01B' 


LD 


<eflaq;.a 


00119 




03 


OCOH 


QC1ZQ 




L3 


C.A 


QC121 




T5SQ0S 


3E5R0R ;Dt»olsv irror met 


DC1ZZ 




JR 


EXIT 


DC 123 








0CL24 


"ARM" 


DEFM 


'Fl 1 t*0«C rfqul r»C~ ' 


0C125 


GFLAG' 


□=FB 


a 


DO 126 


«POS = 


DEP6 


a 


0017"' 


PCS- 


0CF5 


3? 


O0126 


BUFFER' 


OEFS 


25b 


00179 








O013O 


CRTC- 


OEFB 


97. QO iQ5 -3.2S.4 i£4 l 0i?»0.0ia iO .0.0 


00131 








DO 132 




END 


ELSAD 
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oaooi 


i GSAVE 


— S.u 


• a-aeHIca d 


□0002 








□ CO 03 




PSECT 


Z60DH 


ocorv. 




03 INT 


CHnPT.MOMar 


0C005 








0C0Q6 


; 


tfacot 




0CD07 








oca oa 


TRSOCS! 


MACPO 


■ 1 


ceo:" 




l: 


a, si 


ocaio 




PST 


^fcJH 


OCOU 




E^DM 




orai2 








0C013 


I 


TDSOOS 


SvC Ca>ataa 


a&oi* 








ocois 


3FSPEC * 


sou 


78 


QC014 


aiwiT. 


EOU 


SB 


0001? 


3UR1TE: 


EDU 


7S 


ooaia 


3CL05E' 


EQU 


60 


ooaio 


3EOP0P* 


CQU 


24 


00020 


aDSPLY' 


EQU 


10 


O0O21 








DOOZZ 


» 


Part E«uitct 


O0O23 








O0O24 


Xi 


EQU 


BOH 


O0O2S 


Y< 


EQU 


ei-< 


O0OZ6 


DATA' 


EOU 


B2H 


00027 


STATUS- 


EQU 


83H 


C002Q 








O0029 


* 


fla i » P' 


■oa-a* 


0Q030 








00O31 


CCAVE • 


PUSH 


HL 


O0Q3Z 








O0O33 




LO 


A.10H 


0003* 




OUT 


i 234.) -h 


C0G3S 




LO 


B : > 1GB3H 


00036 




LO 


hl.cpt:+is 


D0D37 








O0Q3B 


I 


Tk 1 • cOtft prOfl-a«« 


COO 3? 


1 


Cnly r«qui'td fo' t 


030*0 








Q30*l 


row* 


CUT 


(CJ.B 


ooc»2 




LO 


a . ( hl ) 


030*3 




OUT 


(137), ft 


000*4 




OEC 


HL 


030*5 




OJNZ 


FD1V 


000*6 








000*7 




LO 


HL.FCB 


G0O*B 




LO 


(bU)iOOh 


030** 




LD 


OE'H. 


O0O5G 




INC 


OE 


0D0S1 




LO 


ac>32 


00032 




LOIR 




00053 








03054 




POP 


HL 


ODQss 




LO 


AiOCH 


00056 




CP 


(ML) 


00057 




JP 


2 .EBPOP 


03050 




LO 


ae.rca 


aaos9 




TPSDCS 


3FSPEC 


03060 




Jf? 


n;,60M3 



it-gOi 



4 Ovei 



If««t a ♦ 1 I OepBr- 

JOpen an p»i«Ting file 
.-•'■: a --■■:■■ 
• C l o»a ■ * i l • 
:Oi«ri»v- »" arvQr- »**«j 
;0i tp lay a »*»*age 



ereatt a new c-e 



iSave poi"ta- trc* eo*«i«d li 



(Turn an CPTC >a-ia 

• Load 16 P*gi and point to control po-t 

i-oad Backwards 



iS*l*st :•-.-.■ P«»i*t»r If CPTC 
iGet tK» data 
iCto.a IKat n, tl.a CBTC 
iMov* 10 P'ewlOJ* intry 

[3lii tmlnt ctunttr 

; 3 oint at tr>» FCB 

iZt'0 t«a su'ler 

• Qui Id Jv ■ llnaiion poi nlir 

JCooy tirtt byte to second position 



;Mgvt * i I spec to FCB and do a synta* cKick 
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DOOfcl 




IYIUUCI ** 


000*2 


LD 


HL.BLFFER 


000*3 


LO 


QE .PCS 


0006* 


LO 


0.0 


3CC6S 


-RSOOS 


31NIT 


DCD66 


JB 


NZ .BOMB 


00067 






00060 


LC 


a i CE 3- 


00 069 


OLT 


(STATLS) .A 


OC070 


HC5? 


A 


00071 


OLT 


(X) .A 


00377. 


OLT 


(Y) .A 


D0073 


LC 


E.A 


□0074 


LO 


0-80 


00375 


Lt 


8.7E 


OO07A MCTPECi 1 


HL .BUFFER 


00077 


LO 


OB 


00076 


LD 


B.Q 


00077 NGRFH'- IN 


A. (OATA> 


DDD8D 


LO 


(HL) .A 


0030: 


INC 


HL 


ooooz 


INC 


E 


00363 


L.0 


A.E 


ODDBi 


CP 





C030S 


JB 


NZ.CGRH! 


OOOBe 


XOff 


A 


00087 


LO 


E.A 


oooeo 


OUT 


1X!.A 


0006? 


LO 


A,<TFOS) 


coco 


!NC 


A 


00071 


LO 


i VPOS) .A 


00092 


OUT 


<Y)»A 


00093 EGRPH. 0JN2 


NGRPP 


DQ094 


PUSH 


QE 


00095 


LO 


OE.FCB 


00096 


TRSOOS 


3URITE 


00097 


POP 


DE 


00099 


JR 


NZ.BCMB 


3EC9? 


LO 


e.c 


00100 


OJNZ 


NX T REC 


001 01 






0C102 EXIT LO 


OE.FCB 


00103 


TRSCOS 


3CL0SE 


00104 


LO 


A.OFCH 


001 OS 


CUT 


(STA'US) ,A 


00106 


LO 


ft.lEFLAGl 


QC107 


LO 


L.A 


QOIOB 


LO 


H.Q 


OS 109 


O* 


A 


00110 


RET 




00111 






QCUZ 


C*ror I 


!*■ Xi 


0C113 






0QL14 ERROR' L3 


HL.PARh* 


001 is 


T?S0OS 


303PLr 


DOHA 


J* 


EXIT 


00117 






30110 30MB- UD 


(EfLAS:<A 


00119 


OR 


OCOH 


□cue 


LQ 


C»A 
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;Op»n flit If it txittt? ■!*• c-eat* one 



;catue ■ l«c * a*l»' *e»d 



IcOurtCi- for X . a . c. 

iSO X values 

1 7 -• ^ ; ■ c - 3 i J '- ' - c ■ ■. ■ 



;256 byte* par- 'icard 
iC«t n«>1 si»«t-ici ben 
! and pot In but**' 



)£•"»« i pi 



iNext 'Qtf. Set X to itro 



tGc get ntit ■_" u-'' -: ■■*'.■ 



;Urit» « r» = Q-d to di S t 



iGq I 1)1 butler I (J- iifxt rfcO. d 



Status B graphics pit. no waits, no inci 



1 T» »t Er'ur b y X * 

(Return to "RSOOS or BASIC 



Co vp I « i r 
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0C121 




TBS DOS 


SEPPOP 


0C1ZZ 




J* 


EXIT 


00123 








00124 


PARM' 


QEFM 


*F le» 


QC12S 


EFLAG' 


OEFB 


Q 


03126 


rPOS' 


OEFB 


D 


OC-27 


FCBr 


OEFS 


32 


DC 126 


BUFFER* 


DEFS 


25b 


Q0129 








OC133 


CRTC' 


OCrQ 


77. BO. 


DC13) 








QC 132 




EMO 


3S*vE 
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; Display »"Q' miiiqt 

ftECC required"' 



77. BO. fl5>9, 25*4.24.0. 9 ,0.0.0.0 .0.0 
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cone: 

Q0DC2 
DO 033 
nnnnA 
GOODS 
G0QQ6 
ooao' 
DO 008 
CO 009 
UUU10 
00011 
00012 
CO 01 3 
0001* 
00015 
00016 
C0017 
30010 
C0019 
OOOZO 
CQ021 
-0022 
C0023 
C0024 
C0026 
CQ026 
C0027 
DO 028 
C0029 
00030 
C0031 
C0032 
C0033 
C0034 
C003S 
C0Q3& 
C003? 
C0038 
C0C39 

coa*o 
cacti 



GRON « Torn On ir»ohic« display witk Mltft nn 

iladel * Oue-lap area 



t 



PSECT 

ppiwt 

niCrQ* 



Z60CH 
CHHPT .NOMftf 



ItrSODS: HOC 90 
LO 
PS1 
ENQM 



• 1 

A, HI 
28H 



Po- t Eomut 
STATJS" EQU 63-4 

Ma i n PrOir an 



EHQNl 



Foiy« 



CSTC' 



LO 

to 

LO 



A. 10M 
(234) »A 
BC.10BBH 
HL-COTC+1S 



ITurn 0" CRT I ports 

■ _oaG 14 Rass and point to control port 



Thi* codt c-oi-a--. tt-s CRTC O i p tor 80 * 26 sceen 
Orilv- -e« w red *q- Hedc I 111 Gr««k'. G 4 Beo-d» 



OUT 
LO 
OUT 
DEC 

0JN2 

LO 

OUT 

XOR 

LO 

SET 

DEFB 
ENQ 



(C) B 
A ■ ( HL) 

U37) ,A 
HL 

FOIU 

A . OFFH 
(CTATUC) .A 
A 
HL.O 

Iftatui r. to TRO0O3 i 

99.ea>Bs.e>2s,*.26,o,<?,Q.a.o,Q,a,o 

GPON 



iBolect Data P»«ist»r in CRTC 

-Eel the data 

•Stor* iKat in tha CRTC 

;Mov« ta »'»-iou» «ni-y 

■ Ote-e»cnl eauntci- 



3ASIC 
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O0O02 
O0Q03 
00004 

oooas 

C0QD6 
O0D07 

CCCDS 
CODO? 

oooia 

OOOll 

000:2 
ooo:3 

O0C14 
D0G15 
00016 
0DD17 

ooaie 

03019 
03020 
D30Z1 
O0O22 
C0023 
03024 
ODD 25 
00026 
00027 
00026 
00029 
00030 

c::3: 

00032 
00033 
00 036 

g:c3^ 

00036 
00037 
0CO38 
00039 
00040 
00041 
00042 
0C043 
0C064 
0004S 
00046 
000*7 
0004B 
0004? 
00050 
00051 
00052 
00 05 3 
00054 
CO 055 

:cn;^ 

00057 

coose 

GOO? 9 
CO 060 



GPPINT — P-int iraphics icred to graphic* printer 

:Mod»l 4 Ottrla, ■-•• 



PRINT 

I Macro* 

TRS00S- MACPO 
LD 
R5T 

ENQM 



24-00" 
SHORT, NOMAC 



01 

A.»l 

SOU 



( 



THSQOS SVC Equates 



3PRT; EOU 
SPRINT. EOU 
dr"LAG5« EQU 



6 

14 
101 



•Print a character on the printer 
iPrint a line On thf printer 
• Point to sys'.en control flags 



Fqrt Eouetet 



X' EOU 

V. EQU 

OATAi EQU 

STATUS i EOU 



eoH 
eiH 

82H 



I 



Main Prcgrai* 



SPRINT' LO 
OUT 
LD 
LD 



roiv. 



A.10H 
(236) .a 
BC.15 
HLfCRTC 



;T W - 



On CRTC port* 



Tkl» code p'D«'*iii tKp CPTC C^ip tor 80 * 26 icnai 
Only r»n U ired tor Model III GrepKice Board*. 



.Progran CffTC chip for 60 Oy 26 



LD 


A.B 


OUT 


(136) .ft 


LO 


A,(HL) 


OUT 


(137) >A 


:nc 


HL 


INC 


B 


LO 


A,B 


CP 


C 


JP 


N2.FOIU 


LD 


A.OCBH 


OUT 


(STATUS) >A 


CALL 


INITBF 


XOR 


A 


OUT 


<>) .A 


LQ 


(SPCS).A 


LO 


ULOCJiA 



iOulput a Control byte to :iuu 

• Y to ajtomat icai 1/ dec. on a reao 

• Zero Print butter 

•Set A to 

(Initial!*! the X poi tlon 

i " bit posit ion 

! " " " location counter 



Set the printer to Start graphics node 



LO C<l2H 

"OSOOC 3PPT 

JP NZ,EQM3 



iSegin urachic* noCl 

lOutPut CI-1'lLtO' 

iPr inter Not Ready 
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OCOfcl 






iviuuei t v- 


caobz 


1 


Turn ot 


• intematloni 


00043 








00 0b& 




TRSOOS 


3FLAGS 


CCDJ.5 




LD 


A,( IV+B) 


00066 




LD 


(OLD) <A 


00047 




RES 


i.( ir+B) 


CID^S 








QG0b9 


FGIV1" 


LO 


IX. BUFFER 


ODD 70 




UD 


240 


0D071 




LO 


A.B 


00072 




DEC 


A 


DC 073 




OUT 


(T) .A 


Docm 


COLUMN 


LO 


HL - HASK 


0D07S 




IN 


A.(CATA) 


00076 




ANO 


(HL) 


00077 




CALL 


»0»SETQ 


00070 








DO 079 




LO 


HLiBPOS 


0D090 




PUSH 


5C 


00031 




LO 


B i ( HL ) 


000 BZ 




:mc 


B 


00093 


□ECJ< 


5 = C 


a 


0Q0S4 




JR 


2 i PAST 


00 005 




*LC 


A 


00 OB*, 




J a 


DEC. 


000B7 


PAST' 


POP 


ec 


occe? 




Off 


(IX) 


00039 




LO 


UK). A 


00090 




:nc 


IX 


00091 




OJNZ 


COLUMN 


00C92 








00093 




LO 


A,? 


0GC94 




:nc 


(HL) 


00C95 




CP 


(HL) 


00C96 




CALL 


Z.PSNQRS 


0OC97 








00C9B 




LG 


H-.NASK 


00099 




RffC 


(HL) 


00 ICO 




LO 


A.nnH 


00 ID 1 




CP 


(HL) 


00102 




JH 


NZ.F01V1 


00103 




LO 


a.cxtoc) 


00 104 




CP 


7* 


0C1DS 




JP 


Z.BYE 


ooi at. 




:sjc 


A 


00107 




LO 


(XLOC).A 


00108 




OUT 


(X> »A 


omn9 




JO 


F0IU1 


00110 








00111 


SEIOi 


LO 


A.l 


noii? 




PET 




00113 








00114 


; 


This routine edits th 


nni is 


4 


and the 


in tends t»e di 


00 11 A 








00117 


PRNORSt 


LD 


ML.BUFFER+239 


on iip 




10 


Q.OOH 


0011? 




LO 


B*Z3T 


00 120 




LO 


A.80H 



Model 4 Computer Graphics 



character »ft t<an»ieticn 



iSet ] FLAGS 

iSave a co»>- Dl the current settings 

:Tu»n o*t bit 4 (Intl. Translation) 

ipoint IX at the printer butter 

IjQ thious" • 'halt column g| Jyits 

tPut value In A and d»cr»itm 

l to it can be put out a» 

i tKa Y pos i t ion 

:~u .-I at ohirMllr «e»* 

(Input a B'ioKlc» byte 

•chap a ' ' all but prooar bit 

fit result It odd parity sat bit 

• BtKi • u i a* bit A is Q 
ipoint HL at ths bit aciition 
it«vt 'agister 8 (for OJNZ Iocs) 
>9»i count 

I I nCI-B — B< (in raft* it ft fl> 

;»o«.f> bit le*t BPOS number ot tlftM 
1 1 f denat wove on. . 

■ ■flu* bit I »tt n n» onu I inn 

• r tpn t I oar> 

iaf. locp :ounier bsc< 

.-iBrue A uilh byte at o'intir -..<-ic~ 

iout *tr;td result in butter 

lincreaent butter point** 

Icnnt inue I no 

:Se* II BPOS h«» gotten to Q. 

• It It ha* (printer uib> 7 b ' t * ) 

i orint tie butter and -"Set 

'• BPOS to 

lAtter getting a uertlcal 'OK 0* bits 
1 rotate t-e (task right ore position 
ICKBek to cat It its bac« to 

• It's original "■ lue- * "Ot 
; go gat another ran at bits 

;If so > gat < aos (to increment >tJ 
tCheck to see it me a*e at the end... 

■ athOrWlee) increment the X cauntl- 

iand store it bach 

lilio update : * part uiLi 

InOU 40 ->*t another row O* b I t 3 

itS* A tO binary 0000 C001 
• «d -• •* mi- r> 

print butfgr to -i«av( t'S 1 I i n= blanks 
■ to th» pr i nter 

iStt up tKa 
IPririt teririiatO' 
i5tin test ing 

■ B - I .i -_■-.■; • nothing 
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031 21 

QD123 
0D124 
UL'125 
00124 
DO 127 

oaize 

00129 
00130 
U0131 
0C132 
00 123 
llllli* 
D013S 
00136 
tOl J7 
CO 138 
00139 

aouo 

CO 1*1 

00142 

00 143 

00144 

CO 145 

C0144 

CO 14 7 

C014O 

C0149 

CO ISO 

CO 151 

00152 

G0153 

C0154 

CO 155 

C0154 

C01S7 

0015B 

0015? 

C0140 

00161 

00162 

00143 

0O164 

QQ 16* 



I LEAS ■ 



STOP* 



avE^ 



RnMSi 



BUFFER* 

BPOS: 

XLOCi 
OLOi 

CPTC' 



CP 


(HL» 


JR 


N^.S'OP 


LO 


(HL).Q 


DEC 


HL 


UJNZ 


LLLON 


LO 


HL . BLIFFEB 


TPSOOS 


SPRINT 


XOB 


A 


LD 


(BPC5) >*» 



initial it the P-inter 



IN[T8r< LO 
LG 



LO 
INC 

LU 

LOIR 
PET 

CALL 

LO 

TRSOCS 

LO 

OUT 

TRSDOS 

LO 

LO 

LO 

3ET 



:efe 
:efs 

3ErB 

CE=B 
CEFB 
0E*B 

OEFB 

ENO 



hv.BUFFEW 
(HL) »60M 
OE.HL 
DE 



PPM ORE 
C1EH 

apwi 

A.OFCK 
(STATUS). ft 

BfLAGS 
A . ( OLO ) 
UY.SJ.A 



HL.g 



BON 

2iG 

03H 





U 



ilnytKi ng there? 

i'Oand »Oi>»tKi"8 IB B-lfl 

iThtn aet 'id 0* It 

ibKorttn tK» i in* at nut" a* passine, 
:Po«t ia the tts-t et iK» text 
(Print the contents at BUFFER and da ■ C/R 
tcl ear A 

i-esei Bit posit'on countf 

tut ter 

iPolnl at tha bu'ler 

iFIII th* Gutter with x'80' 

iBuild destination ooi ntf 

;Copy first Dvte to stcond pof'tion 

iZ*to 2*0 oyi*i 



>End Graphics Print Mod* 



:Rt»t.i* = «r»p*-ni n + t« no uaiti* r-o 



iPoint to »v»ti» *'a9» again 

Jbet O'd contents ot It-LAlsS 

;Set things Back the ><v they utre 

iZlro R»turn Code 

!R*turn tc TRSQOS or 3ASIC 



"' ■ : te .(« In a-tr ae ting bi n 
iPrtnte* data bu**tr 
iTerminatOr tor Print Line 
• Bit portion in priote- bulln 
rCurPtnt X loeatla" ual j> 
:: - content* ot 1FLAS* 



99.00 >BS. 8.25.4. 24. 24 . .? .0 .0 .0 . . . 
G=>R[N* 



W 



Model 4 Computer Graphics 



: ( ::n: 


\ GCLS 


-- " fe-> graphics sc 


00302 








00003 




pc E f- 


2600 H 


00304 




=RINT 


SHORT, NOMAC 


codcs 








O030o 


1 


Macros 


00307 








cooca 


TRSOOS- 


MACRO 


•1 


00307 




LC 


A. Ml 


00313 




^ c - 


ZOH 


00011 




ENOM 




00312 








00013 


1 


PQrt 


Equatt* 


00014 








00015 


X! 


EOU 


80H 


00D16 


Y> 


EGU 


611- 


00017 


DATA" 


EOU 


62H 


00018 


STATUS' 


EQU 


S3" 


00019 








□Q023 


1NCV 


EOU 


70H 


000Z1 


INCXV. 


EOU 


30M 


0002? 








00023 


■ 


Main 


Program 


1222'- 








00025 


GCLS- 


LD 


ft.lOH 


03026 




OUT 


1236) >A 


000 27 




LO 


BC<iceeH 


000 25 




LD 


HLXRTC+15 


0302? 








0003: 


i 


This 


CO«)l P'09'«»» 


DC031 


i 


Onl y 


riou i f»fl tor P 


00032 








00033 


FOlUt 


OUT 


■:ci -B 


00034 




LO 


A,(HL> 


00035 




OUT 


U37I.A 


00036 




DEC 


HL 


000 37 




0JN7, 


PDIU 


□ :g3s 








O0O39 




LO 


A.1NCY 


oco&o 




OUT 


(STATUS) iA 


00041 




XOR 


A 


Qt042 




OUT 


(X) .A 


0C043 




OUT 


(Y>.A 


0C044 




LO 


B.ftQ 


DC 045 


OUTER- 


LO 


C.B 


DC 046 




LO 


8.23* 


0C047 


!Nr«(»i 


OUT 


<OATA) i A 


0C048 




0JN3 


INUEO 


0C04t 




LO 


A. [NCXY 


DC050 




OUT 


(STATUS) iA 


00051 




XOK 


A 


n r~- ? 




OUT 


<OATA> .A 


0C0S3 




OJT 


<Y>iA 


QC0S4 




L3 


AiINCY 


O0OS5 




OUT 


(STATUS) ,A 


30056 




XOR 


A 


00057 




LO 


B.C 


OOOSB 




OJNZ 


OUTER 


O0OS9 




LO 


A,QFCH 


DOStC 




OJT 


(STATUS) »A 



:Modo £ Overlay ■•■! 



[Turn Dn CRTC PCrtl 

iLo*d 16 Rfgft *'J point to cont'O port 

iLead backward* 

CRTC Chip +o- BO * 24 icnm 
I II Graphi cs Board* 

iSilicl Oata Ragiatar <n CRTC 

;Get the cata 

;Stor« that In th« C?TC 

■ Move to previous entry 

;D9Cri»»nt couniB' 

;S»t graphic* *tatu»> 

i Graphics olli walla o*'» lit f 

iStt X %. Y address to 

;O0 X addriitd 

;239 Y acd'«s*«s. 240th dor# a*t»- Ioop. 

•Zero graphic* nanory 

'• Go c i II' not V 

■Set status to me X & Y after ar ■ te 



(and rlaar lilt (?40th) Y add-aaa 

iSet Y back to xco 

i We set status to inc Y only 



'• Go el tar next X 

: -• t mt-i' s'tpi"t» u*-. no w« 



00361 








jj jt- 




XOW 


A 


00063 




LD 


HL.O 


00064 




RET 




UUU6S 








00044 


CR T C< 


DEFB 


«<s.eo.t 


00067 








D 0.0 68 




END 


GC-S 



Graphics Utilities 



;Rttum to BASIC or TR500S 

"■>. QG - 01 :2\. ■ ■■• 2~ ■ r; ■ 3. «.0 -0.0.0 -0.0 
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Model 4 Computer Graphics 



oooc: 
oooc? 

0D0C3 

nm:- 

O0OC5 
00004 
OOOQ? 
oooce 

0000? 
O0O1D 
ODD a 
oooiz 

O0Q13 
0001* 
000)5 

aaoib 

OOOl? 

00019 

OQUcQ 

0Q071 

O0D27. 

UQ023 

DQ0Z4 

O0D2S 

U0Q26 

00027 

00028 

0002V 

30030 

00031 

0UUJ2 

O0O33 

D0O34 

UUUJ3 

D0O3fa 

O0O3? 

UOU.XJ 

00039 

00040 

DUOfil 



• GRCFF -- Turn graphics display off nith uaitt o*t 

i HoCt I 4 3 ■. b • s - area 



P5ECT 
PRINT 

TRSOOS' MACRO 
LO 
PST 



zt:> 

SHORT »N0MAC 



A » : 
2BH 



1 POIl - - _ S : I - 

STAT.S' EQU 83H 

Ma I - Pr □ ■}!- •- 



BROFF 



FD|V! 



CRTCi 



LO 
UUi 

LO 

LD 



A.10H 
< £2b> > A 

ec.ioeeH 

HL.C9TCH5 



i lurfi an LKI L port* 

(Load 1 fc 0#9B tnd poi"l to control 

.Load backwards 



po r t 



Thl» cDOi program* thi CW1C Chip tor 00 x 2* icrttn 

On I w riauirid 'n- Mod* I 111 Graphic* Board* 



OUT 

LD 

OUT 

DEC 

DJNZ 

LO 
OUT 
XUK 
LD 

RET 

DEFB 
LT4U 



iSalact Data Ragnttr in CRTC 

<Git i .- data 

IbtOr* thai m tht CHIC 

; v 3-<e to prl^iOul e'T-- 
•C*cr«nant COUnt «r 



<C) .9 
A . ( ML ) 
(lJ7)fA 

HL 
F01V 

A.OFCH 
(STATUS). A 

HL.D 

(Saturn to TR5O0S or BASIC 

^*. 63. 65 .8 ,25.4,26.0.^.0-0.0.0.0.0 

BROf f 
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aooci 

OOQ02 
OOOC3 

0QOG4 
00005 

ooc:i. 

00007 

coa03 

GOD09 

aoo:o 
O00:i 
0D0I2 

00013 
OOO: A 
00015 
00016 
03017 

aaote 

0Q019 
03020 
03021 
0302? 
03023 
03024 
COOK 
03026 
03027 
03028 
03029 
03030 
QC031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
0003*? 
00040 
00041 
00042 
00043 
00044 
00045 
□0046 
CO 04 7 
00 048 
C0049 
C0050 
00051 
POOS? 
CO 05 3 
CQ-Jbi. 
CO 035 
CQ056 
00057 
GO 056 
30059 
:QQ6Q 



GPRT2 — Print graphics X Horizontal 

;(1od«1 4 Overlay art* 



PSECT 
PRINT 

TRBDOS' fACBO 
LO 
CCT 

EN 0*1 



260 OH 
SHQRT.NOfAC 



»1 
A. PI 
28M 



*R5305 SVC E=w»t«& 



3P?Ti EQU 
3PPIHT' EOU 
3FUA65' EOU 



6 

14 

101 



■ Print a character on the primer 
JPrint « lir»» on the printer 
'Point \0 »y»t» n| - j ■ t r -1 ' 1 1 •■• 



S-^l Z ■■ 



FOiV' 



Port E«U.4tes 



X* EOU 

*i EOU 

DATA' EOU 

STATUS' EOU 



0£>- 
S1M 
S2H 
83H 



Ma i n Pr-ogra" 



LO 
OUT 

LO 
LO 



A.10H 

( 234 ! -a 
BC.1D88H 

HL»CRTCtl5 



(Turn an CPTC parts 

lLoad 16 Res* *nd point to control POr t 

i.Q4d backwards 



This mio program* the CRTC Chip tor 80 - 24 »creen 
Only required tor locei III G'aph. c » Boards 



Out 


<c> .e 


LO 


A . ( HL ) 


OUT 


(137) ,A 


DEC 


HL 


DJNZ 


FOIv 



>:i to Oata R«gi»tpr )■ 
■"-■■ the data 
;Store that in the CRTC 
:Moue to p-ivioui entry 
• Dacrc»eKt cevter 



CRTC 



Set the. primer to start graphics node 



LD C12H 

-RSDOS 3PRT 
JR NZ.EOfB 



:B«9in Graphic* -□dp 

lOutput Character 
(Printer Not Ready 



l4( i ntarnai i an* 1 character set translation 



T RSDCS 3FLAGS 

LC A , ( 1 r+o } 

ID (OLD). A 

PES 6-<lYi8> 

Opt" Video Memory 



LD 
LD 
OUT 



CO 

A.QE3H 

< STATUS). A 



tSei ITLAGS 

iSaue a copy n* the currant sett.nqs 

• Turn qH bit 6 (Intl. 1 inilitionl 



^Graphics V address 

iQpen -■-■■ u*th video Mflltf 
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0D061 
0006? 

000 A3 
OC064 

□ CD&5 

00047 

00070 
D0071 
00072 
00Q73 
00074 
00075 
0DQ76 
QQ077 
00076 

o:oeo 
ococ: 

OCO07 

o:oe3 

am 

OCOSi. 
03087 

ocoaa 
o:oe* 

0CQ9Q 
0C091 
0C0«2 
0C093 
0uQ94 

a; o^6 

00097 

OCO'fl 

ociao 
ociai 

0C1C2 

001 C3 
Q01C4 

OC 1 D5 
001 04 
QC1C7 

ocice 

001C9 
0C110 

□on: 

00112 
0011? 
00114 
0C11S 
00116 
00117 
00118 
00119 
□0120 



NEULN: 



Ini I i 

PUB*- 
UD 
LD 
LO 

IMC 

LO 

LD1P 

POP 



LO 

NEURU* LD 
OUT 
IMC 
LO 
XOR 
OUT 
LO 



BVTE1> 



b: _ 



OFC 



DONE. 



QO"B- 



PUSH 
IN 



:B 



LO 

AND 

JP 

LD 

OR 

LO 

IMC 

SPL 

JR 

0JN2 

POP 

LO 
CP 

J9 

GLA 

JP 

C*LL 

JP 

J? 

C&LL 



OJT 

TSCOOS 

LD 

LD 

LO 



III th« Printer 

BC 

HL 'BUFFER 

IHDiSOH 

DELU- 
DE 

BC639 

BC 

P*l 

f<.C 

(Y>»A 

C 

HL>BUf*fER 

& 

(X>,A 

B.80 

BC 
A.(OATA) 

ill 

A,C 

E 

Z.OFF 

A,D 

(HL) 

(ML> .A 

HL 

_ 

NZ.Bir 

BYTC1 

BC 

c 

Z . WNE 



p.neuru 

PR IN* 
NZ.BOMB 

NEULM 



PR EN' 



(-3 C.IEH 

T5SD0E 3PPT 



A>arcM 
(STATUS) ,A 

arLAS3 

a .(old: 
<iy+b>>a 

HL>0 



Butter 

:Seue bc 

iPejint at tht bu'ftr 
iFi I I 1Kb butter |l| tK «'8D' 
iBuild dtninition poinitr 
! CoBf 4ie«t b-t» to urand odtilion 
:Ztro 6*0 byttS 

lR«»tO'« BC 

Ifiit in but t3 set 
iUpdats V 83d-»55 

■ Peatar t X eddrrtl 
iGet 8 J graphic* bytes 

• Sav* Y & Innn coumii 

iSa^e 9-«p"k,* Byte In C 
tGtt bill !■? t to p ig^-l 



;S«t bit in b-»* **t 

iHikt bu'Ur byte 
•Ntxt bit 



:Laat Y •der.ts' 1 
(Ne„i bit I" Bui In 



(Print bul far 

iAn trrqr accwrrtfi. 



tEnd G'--- c- Print Mudw 

;-8 da not cart \i thi* ani 'ails. 



■-•■o'.U) 



S'«P" c» of 1 1 no laiusi no mcs 



iPuini to »y*twm Hag* again 

iGtrt old content* o( ITLAG* 

•Sat th I r;i back tka way 1h«y uors 

•Zaro Return Cade 
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□0171 




RET 




□0122 








□0123 


PRINT' 


PJSH 


BC 


□ Oil* 




LD 


m..Durrcn<63'7 


□0125 




LD 


□ .□OH 


□012b 




LD 


BC.6*D 


□012? 


proiV' 


LO 


A i (ML ) 


00128 




CP 


eon 


□0129 




JR 


nz.stop 


□0130 




DCC 


DC 


□0121 




DEC 


ML 


□0132 




LO 


A.a 


□0133 




Off 


c 


Q0134 




JR 


NZ.PFDIV 


□0135 


STOP' 


INC 


HL 


00134. 


. 


LO 


(tlL).OOM 


0D13? 




LO 


HL. BUFFER 


□0138 




TRSOOS 


3PRINT 


□013' 




POP 


DC 


□QIAO 




RET 




QOltl 








00162 


CRTC- 


DEFB 


*»*. 80.05 .Q.2S 


001*3 








O0U& 


OLD* 


DEF9 


Q 


001*5 


BUFFER 


CEF5 


640 


□01*6 




DCFS 


ODH 


001*7 








001*0 




END 


6PRT2 



:Ketj-r- to TRSOOS G- S"S;C 



i K»v on '■ i ttrminstor 
[S»t cOUrtlr 
(Look at a !_■.-.« 

• Is it • »oH>inj? 

■Than stop 

• Da . ■ a • LOwniti 
''>:'?"'/i". polnisr 
:Ca» \4 m* iri oo»t 
i Ua I I ? 

I Loop tor narf 

ihova point*) back am 

■ Load « (•inlnitOi after la»t valid b.H 

iPcini It thf ttxt to b« Brmttd 
i0>»play it 

; Done > fin 

24.24 .3.9. C.OiO. 0-0)0 

iOld con tent* o* IFLAGS 

i Carr lag* 'if turn 
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0C001 
03032 
00003 
00004 
DODOS 
0C0G6 
OC00? 
000 QB 
ODD 09 
000 1C 

oaoi: 

□□012 
O0D13 
00014 
00016 
OGQli 
OODl? 
0CQ18 
0C01Q 
DC020 
DC021 
Q0OZ2 
QCQ23 
0C024 
OI32S 
0C02e> 
0CQ27 

oc::b 
3:32- 

0CQ2Q 
0CQ31 
OC032 
□C033 
00034 

0C3J6 
OC02' 
0C03O 
OC039 
0CQ40 
0CQ41 
0CD42 
00043 
0C044 
OC045 
0C046 
0004? 

::oie 

00049 
00050 
00051 
03052 

3:os3 

00 054 
03050 
0DQ56 

00058 
00059 

00060 



GPRT3 — Print araprie* X HoniDnul cOubl* V kh 

(Mod. 4 Overlay area 



I 



PSECT 
PRINT 

Microi 



26D0H 

SHQP T ,NQMAC 



TRSDOS- MACRO 
LO 
RST 
ENDtl 



• 1 



TBSOOS SVC Eauata* 



3PQT i EOU 

3PR 1 NT ' EOU 
STAGS' EQU 



DATA. 
STATLS 



FD1V 



6 
14 

id: 



1 Pr ■ nl a cHirflb tar an t pr 1 n IB r 

(Print • lina On t**# printer 
■ Point to Syatan central * I ass 



EOU 
EQU 
EOU 



9DH 
B1H 

93H 



Mt i n Projnn 



GPPT3' LD 

ST 

LD 



A.lDH 
<Z36I .A 
BC.lQSeh 
ML. CRTC* 15 



(Turn on CRTC port* 

iLoad 16 R*s& and point to cont-ol pO't 



Thli cod* program thi CRTC Chip tor SO • 24 icrtm 
Only raqui'Od 4sr Modal III Graphics Boards 



iSalact Data Ra^istar in CRTC 
•Gat tfcff data 

iStOra that in tht CRTC 

■ Mow* to prtuioul a - \ ' . 

I Gtcra/aart cQuntar 



5*t ■ - prlniar to Start ;riph n aodl 



C_T 


■-:■■& 


LD 


AiIHL) 


OJT 


(1371 iA 


DEC 


HL 


0JNZ 


TDIV 



LQ C.12H 

TRSDOS 3PRT 
JR NZiBOMB 



»Bagin Graphics mod* 
;0utpui CK*ract*r 
iPr intfr Not Raady 



Turn -*■ int*r nat i anal Character ttt tranilatiQi 



TRSDOS SrLAGS 
L0 A.tir+8) 

LD (OLD). A 

RES 6»(me> 

Op*n Vidao Memory 



L0 
L0 
OUT 



CO 

A 1 3E3H 

(STATUS) >A 



lG«f 1FLAS* 

•Sau* a cOpv ot th» currant i*i» Ingi 

;Turn o*« b't 6 (Intl. Tra.m latiQ-O 



iGrapr.! C » v addrei* 

iCp«n RAM ■ i th uldao nalt* 
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00061 
00062 
00063 
00064 

::ot: 

00066 

0004? 

00069 

00069 

00070 

00071 

03072 

00073 

00074 

00075 

00076 

DDD77 

00078 

00079 

anoeo 

firm*? 
03D83 

o-soe* 

nrn** 
□ooe*. 
ocoe7 

OCOPfl 

ocoe*» 

□ C09Q 
00091 

□ C392 

qco93 

0C094 
0C095 

0CQ56 
0C0<?-? 

00096 
30099 
00 100 
D0101 
DO 102 
□0103 
QD1C* 
□DIGS 
ODICfc 

oorc? 

□0100 
O01C9 
00110 

aoiu 

00112 
O0113 
001U 
O0U& 

□out 

0Q117 
□0118 
ooi;» 
00130 



rjEu-Ni 



\EURU. 



NFUSf 



RYTp: 
BYTEH 



[IT: 



OFF 



initial i ie the Pr i nllr 

LD D.3 

PUSH BC 

PU3M OE 

LD HL-BUFFEP 

LD (HL).BOH 

LD OE.HL 

INC DE 

LO BC639 

LOIR 

POP DE 

POP 8C 

LO A,C 

OUT (Y),A 

LO A.*OH 

r.« o 

J* Z.NEUR1 

INC 

LO hi. .Pu«l?P 

xor a 

OUT <X>»A 

it *.«n 

LO A.fc 

C» D 

.19 N7.BYTE 

LD D.6 

P «H ac 

IV A-10ATA) 

LD C,A 

LO E.BOH 

LD A,C 

A^D E 

JP 2. OFF 

LD A,D 

OS <HL> 

LO (HL).A 

IMC HL 

SRL E 

jp. n2.b:t 

OJNZ BYTEl 

POP BC 

LO A ,260 

CP c 

JD Z . SOME 

SLA D 

SLA D 

JP 2.ZM3RU 

JP P.NEURU 

LO A.7FH 

AMD 

LO .'■ 

JR NZ»N=UPU 

LO 0-3 

J* ENDRZ 



luHer 

IB! t(») In but to ••* 

;Sav« BC 

Point at i-c bu44*r 
>Fi I I ihi butter *l ih x'60' 
iBuild dsii.'.r'. n- pointer 
iCu-. Iirll byte to IILOnd position 
iZvro 660 bvtes 

iftsioit QC 

s Update i addrets 



ill println9 rou lecond tine 
i Clove to next row 



iRettart X addreft* 

](-bt PD gt KDHIr* hvt»> 



l-a.ij V 1 Inne rnuntsr 

iStui -j ' * i - ■. - .-.■.■ in C 

'Get b>t< l»*t to r'oH 



[bat bit i" bwMer 
;KoHt bu4*o- bvto 
iNaxt bit 



•Last r tdiriis' 
fh!e*t bit In buf * ir 
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0C121 


CNDRUi 


L3 


D - 1 


DC 122 


eN0R2> 


PJ3H 


DE 


00123 




caLL 


PR[NT 


□01 24 




POP 


DE 


0C12S 




J? 


NZ.BO^B 


DC 126 




J* 


NEWLN 


QC 1 2? 








□cize 


DONE" 


CALL 


PRINT 


□CI 29 








00130 


OOHO' 


LO 


C.lCM 


00131 




TBSOOS 


3P3T 


DO 132 








00133 




LD 


fl.DFCM 


3013* 




OUT 


(STATUS) -A 


O013S 








00136 




T9S30S 


3FLAGS 


O0137 




LO 


A.(OLD) 


30138 




LO 


<IY+6> .4 


00139 








00 140 




LO 


HLtO 


00161 




RET 




0D142 








00U3 


PRINT' 


PUSH 


BC 


00144 




LO 


HL.BUFFER*639 


D0U5 




LO 


D.ODH 


D0U6 




LO 


BC.A40 


0014? 


PFDIV: 


l: 


A . ( HL ) 


onus 




cp 


60H 


001*9 




JR 


Nz.srop 


OD150 




DEC 


BC 


O01S1 




oec 


HL 


-u;:-' 




LO 


A.B 


001 S3 




OR 


C 


00 154 




JR 


NZ.PFDIV 


0Q1SS 


STOP' 


1*C 


HL 


0015b 




LD 


<H_).ODH 


00157 




LO 


Ml .BllFFPC 


00158 




TRSSOS 


3P5 1 NT 


00159 




POP 


BC 


30160 




RFT 




00141 








00162 


CRTC: 


OEFB 


99,e3t65»8.25 


00163 








00164 


OLD' 


OEFB 





0016S 


SUFFER 


i DFFS 


640 


00166 




DEFS 


DEM 


O0167 








00148 




END 


GPRT3 



:Pr int bu*f»' 

iPr inttr Error 



lEnd GapMi_» Print Mud* 

IUi da not nri li thi> - r .- 'i Is. 

• Status * graphics oMi no wiitli nQ inc.* 



(Paint to 9y»t«n f I aq» aoam 

• Gtt old contents ol IFL0G1 

• - r - *.:■■-,; back iKi way *■-•> 

iZiro Paturn Code 

»R»tyrr* to TRSDOS or EA3IC 



■Point to the and of the butter 
»■■«■- on the terminator 
iSet COunttr 
•Look At a bytt 

• I* It a rtotMrn? 

• Than hop 
;Decranant counter 
•Decrlaffnt pointer 
\~tv I ' we are dont 
;U* l l? 

ilonp frjr *Qr( 

if.ove pointar back on* 

• Load a tfamator attar l eat ■-« >d bytt 

iPnin* »< »h« *•»• ♦ (1 h» (»«>-t»-H 

• i »p I ey It 
; Onna • »iii 

■ 24,24 -:.9. c •■: ■a.o.D : 

.Old coniifii ol IFLAQ* 

;t»rr tag* rlturn 



Graphics Subroutine Library (FORTRAN) 



4/ Graphics Subroutine Library (FORTRAN) 

I h« Graphics 'i.Hnvn n- Library inrludfd an the Ci>mputw Graphics diskette lets vou utze the luncttoni ol TR5-B0 
Computer Graphic* while programming in Model 4 FORTRAN (26-22191. This library IGRPUB'RKD must be 
linked to any FORTRAN program thai accesses ihe Graphics Subroutinev 

BASICG vs. the Graphics Subroutine Library 

The Graphics Subroutine Library contains subroutines which inovidc liic »auic ».dpabiliticj as lie < \ •.. iiiv - commands 
and functions in BASICG. The Graphics subroutines have basically the same names and parameters as the BASICG 
mmmamls The major differences between ihe library subroutines and Ibe BASICG commands arc: 

• The BASICG command LINE hu» three corresponding libiary subroutines LINE. LINEB. and L1NEBE. LINCB 
and 1-lNEBF r-tovid* the functions of iHe BASICG ,-omtnand LINfc with the paramatei* R and BF n-spechvely 

• TV BASICG command PAINT has two corresponding I ibrar>" subroutines: PAINT and PAINTT. PAINT is for 
puntinp solid black or while, and PAINTT is for paint ng with tiling. 

• The Library' subroutines that lorrcspond to BASICG commands that u*e (x.y) coordinates (except for VIEW) use 
(x.y) coordinates that have been previously set. The subroutines used to set the coordinates are SETXY and 
SETXYR. 



Setting Points using SETXY and SETXYR 

The coordinates specified by StTXY or SlfTXYR will be called the "current" and "previous" coordinates. 
Subroutines that use one (x.y) coordinate pair use the "current" coordinates and subroutines that use two (x.y I pairs 
use both the "current" and the "previous" coordinates, bach call to SETXY or SETXYR sets the coordinates as 
follows: 

1. Assign the values of the "current" (x.y) coordinates to the "previous" (x.y) coordinates, (discarding the old 
"previous" coordinates). 

2. Assign new values for the "current" tx.yi coordinates as specified b> the arguments supplied SHTXY simply 
■ets the "current" coordinates to the values of its arguments. SrTTXYR adds the values of its arguments to the 
"current" coordinate* to obtain the new contrtjnates 



Initialization 

Before any calls are made in Graphics, the Graphics library and board must he initiali7ed A special initialization 
routine IGRPIN1) is included in the library. A cull to GRPIN1 must be made as the first access to the Graphics 
library. 



Example 



(?Ma« C SAMPLE INITIALIZATION 
0B150 UlfltNSlQN V(30>30) 

«fl20fl CALL GRPINI (01 



(A 



Model 4 Computer Graphics 



Linking 



The Library (GRPLIB'RF.Ll must be linked to any program* ihai access the Graphics Subroutine*. You must use the 
linker (L80) to generate the load module 

Example 

L8« JHTIR 

*SAMPLE»1-N 

*CRPHSflM .GRPLIB-S.FORLIB-Sr-U 

»-E 

This cuaraple links both ihc Graphics Lilraiy and ihc FORTRAN Subroutine Library i« the relocatable file 
GRPHS AM'REL. In this example. SAMPLt; t-N is the- file name, dtive specification, and ■witch, respectively; 
GRPHSAM, GRPLIB S. FORLIB S. and -U arc the names of Ihc relocatable modules to be linked ami rhcir 
respeeiive switches -E ends the routine and creates the executable program SAMPLE. The *'* in the ctnmplc arc 
prompt* for the user — not data to he entered. 

Nolc: If ihcrc are unresolved external reference*, the FORTRAN Lihran may need to he scinnrd a second time 



Errors 



If >ou enter incorrect parameters for any of the Graphics Subroutines your screen will display: 
GRAPHICS ERROft 

and reium program control to TRSDOS Ready. This is ihc only error ntessage you'll get when executing the 
Subroutines. 

Important Note Free memory is utilized by the Graphic Routine ror temporary storage, hxtreme care should he 
exca-cd if voui program accesses this memory 



Routines/Functions 

Most of the FORTRAN Subroutines and funciions described in this section have 3 corresponding command in the 
Graphic?. BASIC Language Reference *erfion of this manual 



TO 



Graphics Subroutine Library (FORTRAN) 



FORTRAN Routines 


Routine 


Action 


CIRCLE 


Draws a circle, arc, semicircle, or ellipse. 


CLS 


Clears lr>© Graphics Screen. 


GET 


Reads the contents ot a rectangular pixel area into an array 


GPRiNT 


Displays textual data on the Graphics Screen 


GRPINI 


Graphics imtia izaticn routine. 


1 ISJE 


Draws a line. 


LINES 


Draws a box. 


LINEBF 


Draws a filled box. 


LOCATE 


sets the direction tor displaying textual data on me 




Graphics Screen. 


PAINT 


Paints the screen in specilied OFFON color. 


PAINTT 


Paints trie screen In a specified pattern. 


PHESET 


Sets pixel OFF/ON. 


PSET 


Sets pixel OFF ON 


PUT 


Puts the stored array on the screen. 


SCREEN 


Selects the screen 


SETXY 


Sets (x.y) coordinates {absolute). 


SFTXYR 


Sets fx.y) coordinates (relate). 


VlfcW 


Sets up a Newport where graphics is displayed 



Table 7 



FORTRAN Functions 


Function 


Action 


POINT 
FVIFW 


Roads a pixel's value at a specified coordinate. 
Reads a viewport's parameters. 



Table 8 
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CIRCLE 

Draws a Circle, Arc, Semicircle, Point or Ellipse 

{ r actios .color Mart, end, 

radius is of INTCGFR type arvd specifies the radius of the circle 

color is cf LOGICAL type, specifies the OFFON color of the bo'der of the circle and is an integer 

expression of erther or 1 . 
start is o' REAL type and specifies the siarfcolnt ot the circle. 
and <s of REAL type and specifies the endpoint ol the circe. 
ar is the aspect ratio, is of REAL type and determines the major axis of the circle, if ar s 0. 5 Is 

used. 

CIRCLE draws a circle. By varying sian. end. and aspect ratio, you car draw arcs, semicircles, or ellipses uung 
rurren! X- and T -coordinates a* 'he centerpoini tscl by SETXY or SETXYR). 

If star; and end are 0.0. a circle is drawn starting from tfce center right side of the circle. Note: In the CIRCLE 
statement, end is read as 2 x PI even (hough >ou have entered 0.0. If you enter for aspect ratio, a symmetric 

circle is drawn. 




Example 



CALL CIRCLE! 100.1 .0.0.0 



Sample Program 

Thrs ctample draws and paints a circle. 





000:0 c 


SAMPLE PROGRAM FOR CIRCLE 




00020 


LOGICAL COLOR -OPTION 




00030 


COIORM 




00040 


OPTION-0 




00050 


CALL GRPlNt (OPTION) 




00060 


CALL CLS 




00070 


CALL SETXV1300.100) 




00080 


CALL CIRCLEU00 .COLOR .0.0 




MO* 


CALL PAINT(CCLOR.CDLOR> 




00100 


.END 


CLS 






Clears 


Graphics 


Screen 


CLS 






■^^■^H 






Example 


CM 1 CI S 





i0.0 .0,0 



Sample Program (see CIRCLE) 
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array is any type end is the name of the array you specify. 

sfce is of INTEGER Type and specifies 'he size of trie array In terms of pyws 




GET 

Reads Contents of a Rectangular 

Pixel Area into an Array 

GET fvr jy,siz«) 

m 

■ 

Ot'.T reads [he contents ol a rccungulai pixel area into an array for future u§c by PUT. The pixel area is a group of 
pixels \>hUh arc defined by the tumrnt * and y, and lie previous X- and Y -coordinates specified by the SRTXV 
call. The first two bytc< of array arc act If lbs horizontal (X-axii) number of pixcli in the pixel area: the second two 
bytes are set to the vertical (Y-axis) number of pixels in the pixel area The remainder of array represents the status 
of each pixel (cither ON or OFF) in ihe pixel area. The data is stored in a row-by-row formal . The Jala is stored 
eight pixels per byte and each row starts on a byte boundary 

Array Limits 

Wnen the amy r> defined, space is reserved in memory for iach clement of the array, Ihc size of the array Is 
limited by the amount of memory available for use by your program — each real number in your storage array uses 
four mrmnry loritirms Ihytet) 

The array must be large enough to hold your graph.c display and ihc rectangular axa defined must include all the 
points you want to store. 

To determine the minimum array size: 

I. Divide the number of X-axis pixels by 8 and round up to the next higher integer. 

2 Multiply the result by the number of Y axis pixels. 

When counting the X-Y axis pixels, be sure to include the fust and lasi pixel. 

3. Add lour to ft e tola! 

4. Divide by four (for real numbers) and two (for integer!) rounding up ti> the next higher integer. (Note: It you're 
using a LOGICAL army, Ihc result of Step #3 above will produce the desired array bum.) 

Wlien using array* ihc position and size of the teciangulai pixel aica b dtfci wined l>> Ihc tuiicni and pteviuUi (x.y) 
cuordinaies. 



Position: 


upper let! comer = slartpomt = (kl.yl) 
lower left comer - endpolnt = (x2.y2) 


Size (In pixels): 


Width = x2-x) + l 
length = y2-y| -. i 


Example 





CftLL GETtA 19000) 



7.1 
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Sample Program 

This example draws a circle, saves ihc circle into an array, lhcn restores the array lo ihc graphics video. 

0**50 C SAMPLE FOR GET AND PUT 

031*0 LOGICAL U( 128) .ACTION 

00150 ACTION-1 

00200 CALL CRPINK0) 

02300 CALL CLS 

00350 C DRAW A CIRCLE 

00000 CALL SET>;Y(30»30) 

00500 CALL CIRCLE*. 10 .1 .0.0 i0. 0.0,0) 

00550 C SET COORDINATES FOR GET ARRAY 

00600 CALL SETXY t 10< 101 

00700 CALL SETXY 130.00) 

0*7™ C STORE GRAPHICS INTO ARRAY WITH GET 

00800 CALL 3ET<Y.128) 

00900 DO 10 I"l .5000 

01000 10 CONTINUE 

01050 C CLEAR SCREEN AND RESTORE GRPH FROM ARRAY 

01100 CALL CLS 

01200 CALL SETXYU 10 .110) 

01300 CALL PUT <Y .ACTION) 

01400 DO 20 1 = 1 .5000 

01500 20 CONTINUE 

01600 E'.r 



GPRINT 

Write Text Characters to the Graphics Screen 




cnt Is of INTEGER type and specifies the number of characters to display 
Array is a one dimensional LOGICAL array containing the characters to be d: 

(JPKINI it used lo write text characters to (he Graphics Screen. This is trie easiest way to display textual data on the 
Graphics Screen. Characters are displayed starting at ihc current (x,y) coordinates and going in the direction specified 
by the vtmi recently executed LOCATE call. If no LOCATfc call was executed prior 10 the CiPKINT call, a direction 
of is assumed. 

GPRINT will only yn'tin. Icm cliaiai'hjn 1m:c die Model 4 Dhk Sy.sittn *?*■«*/*.* Manual'' L*th character displayed 
in the or 2 direction use an 8 x 8 pixel grid; each character displayed m the 1 or 3 direction u«* u 16 x 8 grid 
Executing this emiroand will set the turn-nt <«.>) coordinates to the end of the last charactcT that was diiplaycd. 



74 



Graphics Subroutine Library (FORTRAN) 



Displaying text in (he direction engages a wraparound feature. If the end of a line b reached, the display will be 
i.i>tiUnui.J on (lie nc si line. If (Ik cud of the Kltdl is icoilicd, tti^ display «ill be lOiidnucd at Che beginning of the 
screen without scrolling. If there Is not enough room to display at -■■ i, i one character at the current (x.y) coordinates. 
a GRAPHICS ERROR will result. When displavinf test m other directions, an attempt to display texi outside the 
currently defined screci uill cause a GRAPHICS FRROR to be given 



GRPINI 

Graphics Initialization Routine 

GRPINtfopHon) 

option is Qi LOGICAL lypw, clears ilw Giaphcs Svoeti, non-zeto <Jo*js iwl ctaai tlie Graphics 



GRPINI is the giaptiics initialization routine. This function must be called before any other graphics call* arc made 
in rORTRAN. 

Example 

CALL GRP1NK 1) 
Sample Program <»cc CIRCLE) 

LINE 
Draws Line 

LINE (color, atfto) 

color is of LOGICAL type, specifies the OFF/ON color cl a line and is an Integer expression of 

either (OFF. black) or 1 (ON, white). 
ttyto is ol INTEGER type, specifies the pattern of the lire and is a number in the integer range. -1 

mtiiuaiBS a soliO tine. 




I .INF. draws a line* ftera'prn »hr- prpvtnuc and nirrrni mnrrKnaif** These rnordinatps are <ei hy ihe SK.TXY fir 
SETXYR subroutines. 



Kxamplv 



COLL LINE (1 .-1 ) 
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Sample Program 

This example draws a diagonal !mc connected to a box, which is connected to j filled box. 

00030 L SAMPLL rUR LINt LlNEfl LlNEBF 

00020 LOGICAL COLOR 

0*030 COLQfc=l 

00040 CALL GRPINH0) 

00050 CALL CLS 

000G0 CALL SETXYd .1 ) 

0*070 CALL SETXYCM0.B0) 

00000 CALL LlNC(COLOB --1 > 

00090 COLL BETXV (420 . 1 G0 > 

00100 C COORDINATES ARE MOW (210. B0) (420.1G0) 

001 10 CALL LINEB (COLOR.- 1) 

00120 CALL SETXV(639.239l 

0*130 C LUUkLUNAILS ARE NOW U?0.160) 1639.239: 

00140 CALL LINEBFI COLOR) 

00150 FM[ 



LINEB 
Draws Box 

LINEB (color, style) 

coior is ol LOGICAL type, specifies (he CPF ON color ol a tine and is an ntecjer expression of 

either (OFF. black) 01 1 (ON white) 
stylo is ol INTEGER lype, and species tno paliem ol the lino 1 indicates a solid lino. 

MNKIl is ihi' wiine is 1 INK i'\c»'pt 1 IM-"R draws ;i \v\ tvcw.vn lite two sets of coordinates sfl h; ilv SHTXY or 
SKTXYR Mihiiuiiiik-s. 

Kxamplc 

CALL LINEB (1 1 - 1 > 
Line Program (see UM!) 
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LINEBF 

Draws Painted Box 

LINEBF (color] 

color 15 of LOGICAL type. specifies the OFF/ON color ol a fine and is an tniegcr expression ol 
either (OFF, black) or i (ON. while). 

I.1NKBI* is ihc same a« I.IKHB cxcipi LINKHI- fill- iho box (colon: in the box) and the irgument Mylc it nm used. 

Example 

CALL l INEDF 11 1 
Sample ProRrum isce I-INF,» 

LOCATE 

Sets the Direction for Displaying Text 
on the Graphics Screen 

LOCATE (direction) 

direction is of LOGICAL type species the direction that GLOCATE will use to disp'ay textual data 
and is an inleger expression d 0-3. 

U « VII' scR the direction thai (il'RIVl will use n> display textual data Ihc allowable value* for ttireniim arc 

II - 7.-i-ii degree nr.j' I- 
I - 'ID degree anplc 
2- I hi i degree angle 

3 270 degree angle 
Examples 

CALL LOCATE <0) 
I hi. program line win cause characicn i*> he dtspfciyed ;ti the cumnt tx.y] coordinate-; m roirnwl kill iti riphi 
nncntatitn. 

LULL LLLWlt (1 ' 

ITifc. i'1'iLi.nu Mm *ill t«»c ihwtitteia in be db]>fciycd a iK turrcni • \, «.■.«« . J.n.i c» in . »enicdl iiriaiii 

Hum I!r: tu|i "1 tliir strcti) 10 'In ttolti'iu of tlii: *C«cn. 

CALL LDCATC 121 
1 hi- pn>Enim lint *ill cau^e chanwxep. 10 h.- disnbyod unvhtc drm n -Lirtiru' .11 thv iwhi <*t *I»l servun and 
inward! ih.- I<h 
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COLL LOCATE (3) 
Ttib program lint- will cause ihe characters, to he displayed vcnicail> waning ji the lower portion ol the screen going 
towards the lop of ihc screen. 



PAINT 

Taints Screen in Specified Color 

PAINT (color, border) 






color is ol LOGICAL type, specifies the OFF ON color ot oalntlng and is an integer expression of 

either (OFF. black) or 1 (ON. white). 
border is of LOGICAL type, specifies the OFF ON color of the border and s an Integer expression 

ot either o (OFF, black) or i (ON. white) 



PAINT paints ihc screen in ihc specified OtT<ON rotor (black <w while). Il uses the current X- and Y- coordinates 
(sec SETXYi as it* startpomi- 

Esanple 

CALL PAINT! ] .1 > 
Sample Program (see CIRCLE) 



PAINTT 

Paints Screen in Specified Pattern 

PAINTT (array!, border. arraySJ 

arrmyT is a byte array which defines a mulfi-pxe) patten to be used when painting (tiling). The first 

byte of arrayT indicates the length ot the "tile' (OurrOer of bytos) 
border is of LOGICAL type and ssecities the coor ol the border, border is an integer expression ol 

either (biac*) or i (white). 
arrayS is a byte array that is used to define the sackground The firs! byte is always set » 1 ; the 

second byte describes the background you are painting on (X'FF - white. X'OO' black). 

PAINTT lets you pawl a precisely defined pattern using a graphics technique called "tiling." You can paint with 
tiling by defining a multi-pixel gnd n an array and then using that array as ihc paint pattern. 



I Willi |>i l 



CALL PAINTT (A »1 »«) 
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Sample Program 



00150 
00200 
00300 
00330 



00D00 
00G50 
00700 
00800 
00900 

01000 

01100 
01200 
01300 
01400 



EXAMPLE FDR PAINT HITH TILE 

LOGICAL A. 6. BORDER 

DIMENSION A(9) 

DIMENSION 6(2) 

DEFINE TILE ARRAY HERE 

DATA 0(1). A(2I . A(3) • 8< X'Sl 

DATA AU) .A<3) .A(B> /X '24' .X 'IB 

DATA A(7)'A<9).fl(9>/K'24'.N'a2' 

DEFINE BACkCf.-r-ti; APRAV HERE 



.0.0 .0,0 J 



X'4£ 
18 
'81'/ 



DAT a 


B( 1 ) .BI2I / 1 ,0/ 


CALL 


GRPIN1 (0> 


CALL 


CLS 


CAi 1 


SETKYI300.100) 


CALL 


CIRCLEt 150.1 .0. 


BORDERM 


CALL 


PAINTK A.30RDER 


END 





ibi 



PRESET 

Sets Pixel ON/OFF 






PRESET (color) 

color is of LOGICAL type, specifies whether a pixel is to be sel ON or OFF and is An Integer 
expression ol either (OFF) or I (ONi 



I'KhNLT m-k toe pixel ik'luicil hy tilt ciwrvnl ix.yl ohihIiiuIcn l'HIwi ON m (HI 

K mi triple 

CALL PRES£T(0) 



Sample Program 



00100 


C 


PRESET EXAMPLE 






00200 




LOGICAL COLOR 






00300 




COLOR* 1 






20600 




CALL GRPINI (01 






Bt?^»P 




CALL CLS 






00G00 


c 


OCT PIXEL TO CN 






(7070* 




COLL SLTKYC 300 . 1201 






00800 




CALL PRESET (CCLClRl 






00.100 


c 


TEST PIXEL UHFTHPR 


(IN or* 


OFF 


01000 




rv=PDINT(M> 






01 100 


30 


WRITE '3.3P1K 






01200 


35 


FORMAT (*2« ♦ ' P1XCL 


VALUE 


IS 1 


01300 




END 







14) 
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PSET 

Sets Pixel ON/OFF 






PSET (color) 

color is of LOGICAL type, specifies whether a pixel is to be set ON or OFF and is an iffleger 
expression of either (OFF) or 1 (ON). 



PSET sets the pixel defined by the current (.t.y) coordinates cither ON i>r OFF. 
Example 





rail PSFTiai 


Samplr 


Program 








00100 


C 


PSET EXAMPLE 




00200 




LOGICAL COLOR 




00300 




LOGICAL POINT 




00400 




COLORM 




00500 




CALL GR»INI \<d> 




00G"00 




CALL CLS 




eu/tftf 


L 


bfcl HlXtL IU ON 




00300 




CALL SE1XY(300 ,120) 




00900 




COLL PSfcT!COLOr*> 




01000 


c 


T£3T PIXEL WHETHER ON OR OFF 




01100 




K -POINT(rl) 




01201? 




WRITE (3.35IK 




01300 


35 


FORMAT P2'»*PIXRL "OLUE IS'.IflJ 




01400 




END 



PUT 

Futs Stored Array onto Screen 



PUT (array, action} 



array is usualV LOGICAL type, although any type is permissible. Specifes the array (slored 

GET) to be restored 
action is of LOGICAL type end specifies how the data is lo be written to the video. Action n 

one lI Uie following: 

t - OR 3 - PRESET 

? = AND 4 - PSFT 

5 = XOR 

PU1 takes a rectangular pixel area that has been itoied by GET and pdh it on tbc vrccn at current x and y 
coirJinaics set by calling SETXY 
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Example 

CALL PUT (Y .1 > 

Sample Program 'ml 1 [JET 

SCREEN 
Selects Screen 

SCREEN (switch) 

switch is of LOGICAL type and specifies the Type cf screen display and may be one of the 
following' 

= Graphics Screen 

1 « Text Screen 

SCREEN lets yihi select the pu>per screen 

Example 



TAI | RCRFFUffrl 



Sample Program 






I his example turns till ihc graphics display, draws a cuclc. then turns on the grip 


visible 






00010 


C 


EXAMPLE FQR SCREEN 


00020 




LOGICAL CrID 


00440 




CMD=1 


00050 




CALL GRFINI 10) 


veffbv 




CALL CLS 


t?fllJ71> 




CALL SCr-EEN(CHD) 


00980 




CALL SE1XV ( 30l!» .1 291 ) 


tf01»9l9 




CALL CIHCLE1 10tf>.l .tf.0»0.tf .G.tf ) 


0fl 100 




CALL PAINT* III) 


0fl: 10 




DO 20 I ■ 1 .10000 


00120 


20 


CONTINUE 


00:30 




CMD-0 


Gflidfl 




CALL SCREEN! CMD) 


&$ :50 




END 
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SETXY 

Sets Coordinates 



I 




SETXY <X,W 

(x,f) are INTEGER type and represent cootdirates on the G'aprWcs Screen 



SETXY sets and folds both current and previous X and Y- cooriinatet. When a new coordinate is given, if i«. 
designated a* the "current coordinate" and the last coordinate is deugnuieit as trie "previous coordinate " If a new 
caordirMrte i> sjiecified. the "pieviou* coordinate" is lo»i and the "current coordinate" become* Ihe "previous 
coordinate." 

Example 

CALL SETXY ( 10fl .100 t 
Sample Program (see LINE) 



SETXYR 

Sets Relative Coordinates 






SETXYR (p1.p2l 

fp'.p?) are INTEGER :ype and represent Relative Coordinates on the Graphcs 




SETXYR mis ihe cutrent u,y) coordinates relative to the previously set (j.vi coordinates, hor example, i! ire 
•\urrem " coordinates arc UW.IW). CALL SETXYR(IO.IO) will set the "currcnf coordinaieMo (110,1 10); ihe 
"previous" coordinates will then be i 100,100k 



Example 



CALL SETXYRf30 .30 



Sample Program 



00010 C 


DRAW 


00020 


CALL 


00030 


CALL 


00040 


CALL 


00050 


CALL 


000G0 C 


DRAM 


00070 C 


PIKE 


00060 


CALL 


00030 


CALL 


0010(5 


EriD 



TUIO INTERSECTING CIRCLES 
GRPINK1 ) 
CLE 

SETXY* 10fl »100) 
C1RCLE(5&.1 ,0.0.0.0 ,0.0> 
SECOND CIRCLE WITH CENTER 2S 
.S TO THE RIGHT OF FIRST CIRCLE 
SETXYR(20.0) 
CIRCLE! 50 il .0,0 -0.0 .0.0; 
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VIEW 

Sets Viewport 



VIEWf/ertX./ettY.r/ghiX.rigMY.cctorbofderj 

leftX, feftY, right*. rtg/itV are INTEGER lype and specify t\e viewport's parameters 
left X and rightx are numeric expressions from o 10 639 and specify viewports corner 

X -coordinates. lertY and nghtY are numeric expressions from u to iJjy ana specify the viewport s 

corner Y-coorCinates. 
color is of LOGICAL typo, specifies the OFF-ON color code and is a numeric expression of wither 

(OFF, black), 1 (ON white), or -1 (viewport snot shaded), 
bonier is of LOGICAL type, specifies the bordei color for the viewport and Is en integer expression 

of cither (OFF, block}, l (ON, white), or 1 (border is no! drawn). 




V 



VIEW dnwi viewports yu yi>ui Klttlli CJuphk* ts displayed only in the la.t defined viewport. 

The upper-left corner of viewport is rcaJ as t'O.Ol (the 'relative origin") when creating items inside the viewport. 
All the olier coordinates are read relative to this origin. However, the "absolute coordinates" of the viewport, as 
they are actually defined on the Graphics Cartesian system, are retained in memory and car he read using VIHVS a* 
■ function. 



Example 



CALL UIEU( 100 ,101 



'60.200.0 .1) 



Sample Program 



0(0 100 
O0Z00 
00300 

00500 
60?06 



60900 
61600 
Ol t 00 

«i?(7ia 

• 1 300 

6U00 
61500 
Olb00 
61700 
61300 

02000 
t>2100 
02200 



20 
C 



35 
40 
C 



SAMPLE yiEW PRCGf-AII 

LOGICAL CDLORfOORDER.K 

INTEGER F.UEW 

CALL GRPINK1J 

CALL CL3 

SET UP YIEW PORT 

COLOR -0 

BORDER- 1 

call uieut2i0.ee /i 20. 1S0. color . border > 

DRAU MULTIPLE CIPCLES 

CALL SET'XY* 105 .dfl ) 

DO 20 1 = 10.150.10 

CALL CIRCLE! I »l .O.O .6.0 .0) 

CONTINUE 

DISPLAY VIEUF0FT COORDINATES 

DO d0 1=1 iU 

K= I- 1 

JcFMIEU(K) 

WRITE (3. 35)1. J 

FORMAT r2'»'vlEU PORT COORDINATE 

CONTINUE 

PRINT EMPTY LINES 



.14 .' is at *\a 
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>.'zz>:s do ce 1-1 .c 

02000 WRITE (3.50) 

02500 50 FORMAT flHl) 

02600 60 CONTINUE 
02700 END 

The following mo descriptions arc (Unctions in (he Graphics Subroutine Library and must t>e declared as LOGICAL 
INTEGER, respectively . in any routine (hat uses them. 



Functions 

POINT 

Reads Pixel Value at Current Coordinates 





NT0U 

X is a Gummy variable needed lo set up trie proper FORTRAN linkage to the POINT routi 

POINT return] the OFF/ON pixel value ai currcni x and y coordinate as specified by SETXY or ShTXYR. II the 
point is nor in the i*nrrrni viewport. POINT triurm - 1 

Example 

K=P0InTIM> 

Sample Program (see FSET.I 



FVIEW 

Reads Viewport's Parameters 

l*n 

n io of LOGICAL type and a on integer expression from to 3 

FVIEW returns the specified viewport parameter: 
= returns the left X-coordinate 

1 = returns the left Y -coordinate 

2 = returns the right X-ci»onlina;c 

3 = returns the right Y-coordinaic 

Example 

I-FUIEWt*) 

Sample Program (see VIEW) 
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5/ Programming the Graphics Board 

The Graphic* Board provides 640 x 240 byte addressable pixels on a TRS-80 Model 4. The Graphics Board 
contains 32 K o( screen RAM lo store video data consisting of four 64K RAMs which arc double accessed for 8 
bytes of data. Regular alphanumeric data is stored in the static RAM on the Video Board. The Graphics Boird use-, 
separate hardware 10 generate a 640 x 240 display, so only one screen may be displaced at a time. II the video is 
switched from Text to Graphics Screen ver\ rapidlv. the Video displav may lose boriwolil/verncal &ynchroai7.ation. 

' ) port mapping i* uscil lo rcud und write Jul* to the board The &>)ard if addressable at 80 8? Hex. 

There are four internal registers which CHI be written to or read on the board. They are as follows: 

1 . X-Position — X- address (0 to 127) for data write only. (0 to 79 for display. ) 

2. Y- Position — Y-addrcss (0 to 255) for data write only. (0 to 238 for display.) 

3. Data — Graphics data in '"Byte" lorn, bach byte turns on or ofl 8 consecutive horizontal dots. 

4. Options — 8 flags which turn on or off :hc user programmable options (Write only*. 
The I/O port mapping of the bourd is 

• xo — x-Kcgistcr write. <«ui 

• j! — Y-Rcgisicr Write. (81 1 

• ,2 — Video data read or write (8?) 

• .i3 — Options write. (83) 

where x denote* the upp.T nibble of the I/O boundary as st:t hy iho l>IP Switches. They are \ei by the factory at 
K0H. 

The Graphics Board uses X-Y addressing to locale tte suit of a Graphics data byte. Tim uppci-leii oi the succh 

is (0.0) while the tower-right is (07V .239). If the bit is a I. the dot will be ON. For example, if you wanted to 

rum on rhe «rh dot on the rop row. the registers would contain: X POSITION = 0. Y POSITION =0. 

DATA = (00001004))= 08H. Note that in calculating points to phi. the Y-fHJsition is correct for a single dot Only 

the X -position must be corrected to compensate for the byte addressing. Tin's can be accomplished in a simple 

subroutine. 



Line Drawing Options 



There arc two 8-bit counters which act as latches for the X- and Y-addrcsi. You may select, through the options 
■crista, if llicy aic tu •luluiiuificaliy ivmtil *llu a icad in wiilc to niapbii nicmuy. AKo. the luwitcis may iiKicilicnt 
or decrement independently. These counters do not count to thcii respective endpoints and reset. Instead, they will 
overflow past displayabk video addresses. Therefore, the software should not allow the counters to go past 79 and 
239. However, these extra memory locations maj be used for data storage. 
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E\uinpk'?> 

Tttc following are brief examples on how 10 use the Graphics Board. 

Read the video byic al K -0. Y -0 



XOR 
OUT 
OUT 
IN 



(BOH) .A 
(81.H) .A 
A ilBZHJ 



(CLEAR A 

iOUTPUT X ADDRESS 
IOUTPUT Y ADDRESS 
iREAD VIDEO BYTE 



Draw a line from X - 0. Y - to X - o.'O. Y - using the hardware line drawing 



LDDP 



No. 


1 
2 

3 

4 



LD 
LD 

OUT 

XOR 

OUT 

OUI 

LO 

OUT 

DJNZ 



»73 
ft ,CDtH 

<83H> .A 
A 

(8UH) ,A 

IBIHJ >A 
A .0FFH 

IB2H) .0 
LOOP 



iC HAS CHARRCVtR CUUfU 

iOPTIONS: INCREMENT X AFTER WRITE 

i 1 fl : 1^001 Dinar/- 



;OUT X ADDRESS STORTINC 

;oui PUI Y ttDDRESS 

JLDAD A UITH ALL DOTS ON 

;ourpuT dots 

iOUTPUT NUM3ER IN B REGISTER 



Option 

GRAPHICS ALPHA' 

MOT UfiFD 
XREG DEC INC- 

YREG DEC/INC 
X CLK no* 

Y CLK RO- 

X CLK WR- 

Y CLK wr- 



Options Programming 

Description 



Turns g-acnics ON and off. 
"1" turns graphics ON. 



Selects wliellifci X JwtieTiefita or Increments. 
"1" soicctc docromont. 

Selects whether Y decrenents or increments. 
"1" selects decrement. 

If address clocking is desired, a '0" clocks the X 
acdress up or down AFTER a Road depondmg or 
the status of BIT 2. 

H address decking is desired, a "0" decks the Y 
address up or down after a Read depending or 
tna staua o* OIT 3. 

A "0' ctocKs AFTER a Write. 

A "0" ciocks AFTER a Write. 



Table 9. Options Programming 



Rft 
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Appendix A/BASICG/Utilities 
Reference Summary 

Argument ranges arc indicated below by special letters and words 
ur is a single -precision floating point number > 0.0 Ho !• 10"). 

6 is an integer expression of cither or I 

B specifies* box. 

BF specifies a shaded box. 

e is an integer exprcsston of owl. 

« is an integer expression from to 2. 

p l\ An integer expression from in * 

r is jn integer expression from lo 639. 

s is an integer expression from to 639. 

v is an integer expression from to 239. 

action is either AND. PSET. PRESET. OR. or XOR 

hfifigraitH/t is a string of other or ] . 

border is an integer expression of either or I 

end is an expression from -f. ?83IR5 to 6.283185 

siart f029ii an expression from - 6.283185 m 6.283 185. 

switch is an integei expression of or I. 

fttitn; t> a xui.g oi an iuicgci cxpicssio?i of oi I . 

type is an integer expression of I) or 1 

ViH''\.Wx.y)r,t, start end, or lirau-* a circle, ellipse, semicircle, arc. or point. 

CIRCLE( 1*0.100) ,25,1 CIRCLE* 150 .150) .30,1 , ,,.6 

C1BCLE( 1B0.100) .100 ,P I ,2* PI .5 CI RCLE < -50 . -50 ) .200 

("l-S Clears the Text Screen and video memory 

CLS SYSTfrTCLS" 

CLR Clears the Ciraphics .Screen. 
CLR 

GCLS Clears ihc Gnphics Screen and memory. 

GCLS SYSTErTGCLS" 100 SYSTErTGCLS" 

GETix/ ,yl Hx2.y2) , array name Reads the contents of a rectangular pixel area into an array. 
GFT< 10 . t # i - t^0.*0> iW 

GLOAD filename text. patsHord:d I.oads graphics memory. 

CL0AD PR0C SYSTEM-CL0AD PROC 

G LOCATE fx.r) ,*iirccticn Sets the Graphics Cursor 
CLOCATE {320.120) .0 
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iiTRINT flump* graphic display on ttc prirecr. 

GPRINT SVSrEH"CPPINT" 100 SYSTEM "C1PR INT 

GPRT2 Dumps graphic display on (he primer without rotating <K) degrees. 

GPRT2 SYSTEM"GPRT2" ' 160 SVSTEM"GPRTZ" 

CPRT3 l">imps graphics display or the primer without rutaiing W degrees. 

GPRT3 SYSTEM"GPRT3" 100 SYSTEM "GPRT3" 

GEOFF luras Graphics Display Ol-F 
GROFF SYSIErl"GRQFF" 

(iRON Turns Graphic* Display ON. 
GRDN SYSTEM-GRON" 

<i$AXKfitfitameexLpasword:d Saves graphics memory. 

GSAYE PROG ST STEM "GSAVE PROG" 

USfXxl.yiHx2y2)xM or Bh\ style Draws a line'hox. 

LINE -<I00.100> LlNEt 100 tl06>-<:00 .200) .1 .B.d5 

LINE<6 .6)-<106.l00) .1 ,BF LINE ( -260 »-206) -( 100 .100 ) 

PAINT tx.r/.titiity.buriler.frtitligroiintf Paints itic screen 

PA1HT<320-120) .1 -1 PA I NT< 320. 120) ,"DDDDD" ,1 
PAIr-T<320 ,120) .A».l 

PflINT<320-120) . ~Hft4( 0) «-CHR*< 8HFF ) .0 ,CHR*<&,H00 ) 
PAINT (320 .1201 rCHS«(E)+CHR*(77)+CHP*(3) 

&PO!NTf*,W * function. Tests graphics point. 

PRINT &P01NTO26 .120) IF kPQINTt 320 . 120) "1 JTHEN . . . 
PBIHT &PQINTO20 .120) .-1 

PRESET (s.y),s*ilch Sett pixel OFF or ON. 
PRESET! 100 .106) .0 

1'RINT #-3, iient list Wriic lexc characters to ihe Graphics Screen. 
PRIIIT »-3. "MONTHLY" 

PSET fxjkswteh Sets pixel OS or OFF. 
PSETt 106 .100) tl 

PUT fxl ,y 1), array name. action Puis graphics t'ruin i*i array onto the si-nwn 

PUT! 100 -100) .A -PSET PUT ( 100,100) .A ,AND 

PUTtA.B) .6 

SCREEN type Selects the screen. 
SCREEN 6 

VIEW (xl^I)-(x2^y2),c,b Redefine* the sercv-n und crealcs a viewport. 

i-ilEUt 10* .1001- ( ISO .ISO) U[EIH 100 ,t«0>- (150 .150) .Q .1 

&\'lEVi{p) \ function. Returns viewport's coordinates. 
PRINT iVIEWd) 
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Appendix B/ BASIC Error Codes 
and Messages 



Code 



NF 



I 



PG 



OD 



FC 



Number 



Message 




NEXT witiout FOR 

A variable in a NEXT statement doss ncl correspond to any previously 
executed unmatched FOP etalemant variable 

Syntax error 

BASIC encountered a line mat contains an incorrect sequence of 
characters (such as unmatched parerlhesis, misspelled statement, 
incorrect puncftjatlon, etc.). BASIC automatically enters the edit mode 
at the line that caused the enor. 





Return without GOSUB 

BASIC encountered a RETURN statement tor which mere is no 
matching GOSUB statement. 

On' ot data 

BASIC encountered a READ statement, but no DATA statements with 
unread items remain in the program. 

Illegal functon call 

A parameter that is out of range was passed to a math or string 
'unction. An FC error may also occur as trie result o(; 

a. A negative or unreasonably la*ge subscript. 

D. A negative o> zero argument with LOG. 

c. A negative argument io SOU. 

d. A negative mantiasa with a nonintcger exponent. 

e. A call lo a USR function tor which the starling address has not yet 
been given. 

An imp-ope- argument to MlDS, LEFTS. RIGHTS. PEEK, POKE. 
TAB SPC, STRINGS. SPACES, INS1R, or UN...GUIO. 



Overflow 

The result of a calculation was too large to be represented in BASIC 
numeric format If underflow occuis, Ihe resu't is zero and execution 
contirues without an error. 
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OM 



UL 




DD 



'it 



TM 



LS 



12 



13 



15 



Out ol memory 

A program is too large, or has too many FOR loops or GOSUBs, too 
many variables, or expressions that are loo complicated. 

Undefined line number 

A norexlstent line was referenced in a GOTO. GOSUB. 
IHfcW ..tLSfc. or UhLhlE statement. 



Subscrip: out of range 



An array element was referenced either with a subscript that is oulsido 
the dimensions of the array, or with the wrong number of subscripts. 




Redimersioned An 



av 





Two DIM statements were gtv< 

was given for an array after the default Oimension ol 1 has been 

established for that array. 



Division by z©'0 

An expression includes division by zero, or the operation ot involution 
results ir zero bang raised to a negative power. BASIC supplies 
machine infinity with the sign of the numerator as the result of trie 
division, or it supplies positive machine infinity as the result ot trie 
involution. Execution then continues 




lllega di<ect 

A statement that is illegal In direct mode was entered es a direct mode 
com mar 






Type mismatch 

A string /ariaMe name was assigned a numeric value or vice versa A 
nume'ic function was given a string argument or vice versa. 



Out ot string space 

String variables have caused BASIC to exceed the amount of free 
memory remaining. BASIC allocates string space dynamically, until it 
runs out of memory. 



String too long 

An attempt wes made to create a string more then 255 characters long. 

String formula too complex 

A string expression is too (org or too complex. Trie expression should 
be broken htc smaller expressions. 
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CN 



17 




19 



21 



Can't continue 

An atiempt was made lo continue a program that: 
a. Has halted duo lo an error. 
d. Has been modified during a break in executon. 
c. Doe3 not exist. 

Undefined jser function 






A USA function was called before providing a function definition |uth) 
statement. 

No RESUME 

An error- handling routine was entered without a matching RESUME 

statement. 

RESUME without error 

A RESUME atatomont woo oncountorod prio' tc an orror-handling 
routine. 

Undefined error 

An error message is not availac-le tor the error mat occurred. 

Mrsskig operand 

An expression contains an operator with no operand. 



Line Duffer overf ow. 

An attempt was made to input a line with loo many characters. 







without a matching NEXT. 

WHILE without WEND 

A WHILE statement does not have a matching WEND. 

WEND without WHILE 

A WEND statement was encountered without a matching WHILE 




Disk Errors 

50 Field overflow 



A FIELD statement is attempting to allocate more bytes than were 
specified tar the record length of a direct-access filo. 
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53 



61 




le-nal &'Of 



An htemal errc malfunction has occurefl In BASIC Report to Radio 
Shack the conditions under which the message appeared. 




Bad file number 



A statement or command references a file with a buffer number thai is 
not OPEN or is out of the range of fie numbers specified al 
initialization, 



File not found 

A LOAD, KILL, or OPEN statement releionces a file that does not exist 
on Recurrent disk 



Bad tile mode 



An attempt was iiinUc tu use PUT. OCT, or LOP Willi a sequential file, 
to LOAD a direct file, or to oxecute an OPEN matcmont with a file 
tnnrio nthraf ihnn I, O R F or l"> 




ftopm 




An OPEN statement lor sequential ouiput was issued for a 
already open; or a KILL statement v»as given for a tile that 




Device '0 errc 



An npuiQuiput error occurred. This Is a fatal error; trie operating 
system canrot recover it. 



56 File already exists 

The filespec specified in a 
already In use on the disk. 


NAME statement is 


; identical lo 


a filespec 



disk tun 

ah disk storage space ts in use. 
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Input pas' end 

An INPUT statement was executed after all the data in (he file had 
been INPUT, or for o null (empty) fte To avoid this error, U3e the EOP 
function to detect 'he end-of-file 
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Bad record number 

In r PUT or CiET statement, the record number is eilher greater than 
He maximum allowed (65.535) O' equal to zero. 
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C6 



Bad file n 




At IBccul 'iic-jpcc (flic name) was uboc! with a LOAD, SAVE 

OPEN siatemenl ((or example, a filespec with too many character). 



Direct 5ta;crncrt in file 




A direct statement was enconnteres" while LOADng ar ASCII-format 
file. The LOAD is terminated. 



Too many files 

An attempt was made to ceate a new file (using SAVE or OPENi when 
all directory entries are full. 
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Appendix C/ Subroutine Language 
Reference Summary 

CIRCLE {radius, color Mart . end. or) Draws circle, ellipse, semicircle, ire. 01 point in.v) coordinates sel hy 
SETXY. 

CALL CIRCLE (109.1.0.0-0) 

CLS Clear* Screen. 
CALL CLS<£> 

FVIEW in) Returns viewport parameler. 

I=FVIEW10) 

(JET iarrawsir.ii Read* the contents of a rectangular pixel area into an amy tor future use by PL'T. 
CALL CET(A.4000> 

GPRINT {size, array) Displays textual data. 
CALL GPRINT (28.ARRAYI) 

CHPI\'I ■ .i; .'..-■ ■. tfVaphi*"* initialisation mntinr 
CALL GRPINI («) 

LINE icolor.stjle) Draws a line 

Coordinates «*t by SETXY or ShTXYK 
CALL LINE ( 1 el ) 

LINEB tcolor.styie) Draws a box. 

Cnnrdinatcs set hy SFTXY or SRTXYR. 
CALL LINEB (1 i-l ) 

LINEBF {color} DnWl u filled bo*. 
Coordinates set by SETXY or SETXYR. 

CALL LINEBF ( 1 > 

LOCATE in) Sets the direction for displaying textual data. 

CALL LOCATE 
PAINT {color, border) Paints screen. 

CALL PA1NT( 1 ,\ ) 

PAINTT iarrayT, border, arrayS) Paints screen with defined painl style 
CALL PAINTT (A.l tV) 

POINT Returns pixel value at current coordinates. 
K = P0INTO1) 

PRESET icohr) Sets pixel ON or OFF 
CALL PRESET (9> 

PSET Uolon Sets pixel ON or OPT. 
CALL P3ET <G> 
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SCREEN itypc) Sets Screen/graphics speed. 
CALL SCREEN (1) 

SETXY {X,Y) Sets coordinates (absolute). 
CALL SETXYU00.100) 

SETXYRIJMO Sets coordinates (relative). 
CALL SETXYR130 ,50) 

VIEW (lefiX,leftY,righlX,righlY, color, border) Sets viewport. 
CALL YIEW( 100 il00 ,200 »200 .0.1 ) 
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Appendix D/ Sample Programs 

10 ' 

20 ' Pit Crap* Program I ■ PECANPIE/GRA' ) 

30 ' 

50 ' The object of this prosram is to draw a pie Jrofh or the 

B0 ' o'eues f o i t Ji»en month of eiJht departments of a soiiponvi 

70 ' Aland with the nuncrioal value o* eaah rie section 

B0 ' representation. 

90 ' 

lflfl ' 

110 ' Runnintf the pre a fan 

120 ' T h t- non Lh aid the onuunis spent t - each department are input > 

130 ' and the proiram taKes over from iherp. 

Ifl0 ' 

150 ' Special features 

1E0 ' The amounts spent b/ each account as well as the total 

170 ' amount spent are stored in strings. The prcSrain will 

160 ' standardize each string so that it is 9 characters long 

190 ' and includes iuo characters to the ntfht of the decimal 

2?0 ' point. This allows for input of variable lenilh and an 

210 ' jptional decinal point. 

220 ' 

230 ' The various coordinates used in '.he program are found 

Zd0 ' l>o>vd on the tolluwins i-.alonj; 

250 ' 

260 ' x = r * cos(theta) 

270 ' v * r * sin(theta) 

280 ' 

^atf ' where x ard v are the co o re l n a: c i » r is the radius* and in«ti 

300 ' is the anile. (Note: The y-coo rdi nates are alua/s Multiplied 

3 1 * o y 0,5. Thic ie bocauca t * b y nvole ara tuire t. *»*» ai?P of lh» 

320 ' x pixels. : 

330 ' 

340 ' If an d-s'.e theta is generated br a percert less than lit the 

350 ' section is no*, graphed < and the next theta If calculated. 

3G0 ' However* the number will still be listed under the Kcv* 

370 ' 

380 ' Variables 

390 ' ACCTtU) Description of the account 

400 ' 9UD«(i) Amount spent by tie account 

i]0 ' JS» Dollar sun (used in output) 

£120 ' HKCOL Colurnn nuiiber for the pie section number 

n :■:.'. ' MYRU tTiui nnmher fnr tha pip =. p - - i n n number 

--;.' ' I Counter 
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450 ' MNS Mnnth 

fl60 ' PERU) Percent value of BUD* { i I 

fl70 ' R Radius of circle 

080 ' T0 Ansle value line to be drawn 

490 ' Tl Ansle value of the rent line 

500 ' TBUD* Total of all the BUD* < i ) ' e 

510 ' THALF An«le u:i.i. between Tl and T0 (used for 

520 ' location position for section number) 

530 ' TILES(i) Paint strle for each section 

5fl0 ' 7WQPI Two times the ualue of Pi 

33<0 K» x-t uu rii 1 naie fur drtiwins ine line representee 

560 * by T0 

570 ' XP X-sao rd i nat e for paintins a section 

5G0 ' V0 V-coo rdinat e for drawin; tht line represented 

5S0 ' by Tfl 

SHId ' If V-coo rd ir< at e for paintins* a section 

G10 ' 

G20 ' Got initial ualuoe 

630 ' 

GA0 CLEAR 1000 '10-JAN-8a 

650 DIM THAlF( 15) .BUDS< 15) .ACCT*( 15) »PER< IB) 

660 TH0PI=2«3.iai59 

C70 R«1G0 

680 DS*="t" 

690 ACCTti l> ■ "Sales" 

700 ACCT*t2) ■ "Purchasing" 

710 ACCT*(3> ■ "R&D 

720 ACC T *(fl) s "Accounilns" 

740 ACCT*(5) = "AdverlisinJ " 

7^0 orrTsiRi s "iitiiitiBt 

760 ACC T *C7) ■ "Security " 

770 ACCT*<B) = "Expansion" 

780 TILE*!0)=CHR*<&HZZ)+CHR*I8<H0) 

790 TILE* C 1 ) -CHR*<6\HFF)+CHR*(8<H0> 

Qflfl TILE*! 2) -CHR«<&H99)*CHR«(4UGG> 

810 TILE*t3)=CHR*<&H99> 

870 TiLE*til)=CHR«(RHFF) 

830 TILF*(5>=CHR4UHF0)+CHR4UHF0> + CHR*(&HF)+CHR*(&HF> 

8fl0 TILE*C6)=CHR*UH3C)+CHR*^H3C)+CHR«<6HFF> 

83* T[LE*C7)^CHR*(6H3)*CHRM8cHC)*CHR*<fiH3tf )*CHRM&HC0) 

SG0 * 

870 ' Enter values to Ip sraphedi standardize them< and calculate 

8B0 ' the percent they represent 

890 ' 

900 CLR 

910 CLS 

920 SCREEN 1 

830 PRINT B80»'"Enter month " 

9<J0 PRINT BZA0 »"Enter amount spent by" 



qsa print P3?0."t" 


9G0 PRINT 90.-' 


970 LINE INPUT "Enter month " IMNt 


980 FDR 1*1 TO 8 


990 PRINT 0265.ADCT*(I) 1" 


1000 


PRINT B32# ."*" 


1010 


PRINT eZdflt"" 


1020 


LINE INPUT "»"?BUD»U) 


1030 


IF 1NSTBIBU0»(I> ." .") =0 THEN BUD* ( I ) =DUD»( I ) *" 


1040 


IF LEN(BU3*( I) )<9 THEN BUD*<I>=" " *BUD* ( I ) : GOTO 


103e» 


T0UG»-3rR»(^AL(TDUD* )-»"VAL ( 0UO»! I > > ) 


1060 


NEXT I 


1070 


IF INSTR< TBLJDt ." ." )-« THEN TBUD»= TBUD*+ " . 00" 


1080 


IF LEN<rBJD*KS THEN TBUO«=" " *-T9UD*: GOTO 1080 


1090 


FOR I»l T3 B 


1100 


PERI 1 1 :'.ia ciidk 1 ) i/vun IBUDt ) * 1 »0 


1110 


NEXT I 


1120 


SCREEM £ 


1130 


* 


1140 


' Draw the circle and calculate the location of 


1150 


' the 1 i ne nunbe rs 


1160 


* 


1170 


CIFCLEU25 rl20) rR 


1180 


FOR 1=0 TO 8 


1190 


T0-TWQPI/100«PERU ) = T0 


1200 


XC"425+R«C0S(TC) 


1230 


YO=120-R»SIN(Te)».5 


1220 


1 L = l WUKl/lWei*PEKl 1*1 J*I0 


1230 


THALFC I)=(T0+T1 ) /Z 


1210 


HXCOL= UJ25+R*1 . 15* COS' THOl Ff I ) > )- 10 


1250 


HYRM-INTU20-RM . 1 5-SIN < THALF ( I > >«.5> 


1260 


IF PER(I)>1 THEN LINE ( flZS r 120) - ( X0 i Yfl > 


1270 


CLOCATE (HXCOL .HYRM) .0 


1280 


IF I<3 and PERU + llM THEN PRINT «-3p1*1 


J 200 


hCW I 


1300 


I 


1310 


' Paint the appropriate sections of the pie 


1320 


/ 


1330 


FOR 1=0 TO 7 


13*10 


XP=dZ3*R*.r*C05(THALF(I ) 


1350 


YP = 120-R«.~»SIII(THALF(I ))*.5 


1360 


IF PFRU+lXsl THFN 1380 


1370 


PAINT (XF^IP; fTILEX I > '1 


13B0 


NEXT I 


1350 


• 


1400 


' Print the l;e* 'or the sraph 


1410 


i 


laze 


GI_OCATE<0 f 10 > .« 



the lines and 
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1 430 PRINT • 3 ."Exronditu r«e for" 

liiatfl GLOCATF(0 .25) .0 

1450 PRINT *-3»MN* 

1060 GLDCATE(0 .a0) .0 

1070 PRINT «-3»"» Description Amount" 

1480 FOR 1-1 TD 8 

1490 CLOCATE(0.{4+I>«15> >0 

1500 PRINT «-3.I 

1510 CLOCATEU0.(4+I>*15> »# 

1520 PRINT »-3.ACCT»(I ) 

1530 CL0CATEU3& ,( I+a)*15> -0 

1540 PR;NT «-3.DS*iBUD«( I > 

1550 0S*=* " 

1560 NEXT I 

1570 GLOCATE(0 .193) >0 

15B0 PRINT ■-3,STRING»(2Gr'-") 

1590 GLOCATE<a0,210) .0 

1B0C FP1NT «-3i"TuUl " 1TDUD» 

1610 FOR I«l TO 1' 

1G20 NEXT 1 

1E30 SCREEN 1 

1G40 END 
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10 

20 
30 
40 
50 
CO 
70 
60 



"rH?E=0EE/CP6 



Object 

The object if this program is to produce a three 
dimensional bar Sraph representation of the sross 
i-i co me fcr a compart* over a unc rear reiiud. 



Variables 

A Vertical alphanumeric character 

108 3MSG* Bctton Message 

lie ' CHfth* uiss rue input Held 
1Z0 ' GI* Gross income 

nfl ' I Ctunitr 

140 ' J Ctunler 

150 ' MN» Month 

160 ' 'EC Record number of uertical character 

170 ' SI* Smile character of uertioal meisnr 

180 ' TILE* Til* -»tt#rr. for Pilntltif 

190 ' TUNC Total income for the year 
200 ' X X-caordinate of bar 

210 ' Y(i) Y-coordinate of bar 

220 ' 

239 ' IrtPut/outPlit 

240 The piofram prompts you to enter the sross incone* in Mill ions i 
250 'for each mcn'.h. T^p ern4inn reqiii rt» « th»s» ualues to be between one 
260 'aid nine . 

27* ' 

280 'Set initial values 

290 ' 

300 CLS 

310 Din Y( 12) .0(81 .MNMIZ) 

320 DEFINT P 

330 umsg*=" Millions of dollars ' 

340 TM5G*-"G ioss Incone For 13 8 3" 

33* OMSG»="M o n \ h" 

360 MNM1 )*"Jan«ary- 

370 h"NM2>="FebTuar>-" 

380 HN*(3)="March' 

390 nrJ*<a>="April ■ 

400 nNt(5)="May' 

410 HNMB)-"Junt" 

420 MN»(7)-"Jul*" 

430 MNMB>="Au9ust" 

440 nNt(9)="SePtenbe r" 

450 MNM10)="October" 

460 nN»(ll)="Noienber" 

470 NN*<lZ)»"Diicefibtr" 

480 ULES=CHR«UH99>+CHft«(oHB6) 
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U90 X»-10 

5&0 ' 

510 ' Input 4ioss incomer and calculate the Y-coo rdinat e 

520 ' 

530 FOR 1=1 TO 12 

5a0 CLS 

550 PRINT "Enter Jross income in millions (1-91 for "iflNflD 

550 LINE INPUT '*" iGI» 

370 Y(I )=203-2»*VflL<GI*> 

380 TTINCiTlMCfVALiGI*) 

530 NEXT 1 

G00 CLR 

G10 SCREEK- 

620 ' 

B30 ' Diau the iraph and bars 

6^0 ' 

G50 FOR 1=1 TO 12 

6£0 CLS 

670 X=Xt5t> 

6E0 LINE (X.YUI >-(X+20t205) ,1 .BF 

630 LINE -(X+40.195) 

700 LINE -<X+40.Y(1>-10) 

710 LINE -(X+2BtY( 11-10) 

720 LINE -(X »Y< I ) ) 

730 LINE <X»20»Y(I))-<X+40 >Y(I >-10> 

740 PflINTIX*2l rY<l >*2> .T ILE* .1 

750 NEXT I 

7G0 CL0CATE<4« .215) .0 

770 PRINT *-3»"Jan Feb Mar A» r Ma* June July Am Sept Oct Ncu Dec 

780 CLOCATE(290.Z30) i0 

790 PRINT *-3»0MSG* 

800 FOR 1=1 TO 10 

810 IF ]>9 THEN C=l EL5E C=2 

820 CLOCATEE ( C«10) -5 . ( 20- 1 «2 )* 10 ) .0 

830 PRINT «-3.SIW$(l i • "-" 

8£0 NEXT [ 

850 LINE 135 .C ) - ( 35 >205) 

860 LINE -IB39 rZ03> 

870 GLOCAr£<0.I80> i3 

B60 PRINT --3.VMSG* 

000 GEOCATE{220.0> r0 

S*0 PRINT --3.TKSC* 

910 CLOCATE12S0.KM ,0 

320 PRINT *-3. "(Total inco«o is"lTTINC:" million)" 

930 FDR I a I TO 10000 

940 NEXT I 

9t>0 SUKEbN 1 

960 EHO 
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Printing Graphics Displays 



llicic «c many ways to use the stand-alone utilities (described in Graphic Utilities). The following discussion 
demonstrates one way to use the utilities with graphic displays generated under BAS1CG. 

lo print graphics, lollow these steps: 

1. When TRSDOS Ready appears, set FORMS to allow 255 characters per line and 60 lines pet pa^e. (Sec your 
Model 4 Ittst System Owner's Manual.) 

2. Set the printer into Graphic Mode, if possible, and set the printer's other parameters (elongation, non-elongated, 
etc.). if applicable, according to instructions in yout primer owner's manual. 

1 Writr. rim anil lave ymit program us a BASICO program file. 

4. Save the graphics memory to diskette using GSAVE. 

5. Load the file inio memory using GLOAD. 

6. Enter the print command GPR1NT. 

Example 

1. Set FORMS with jour printer's printing parameters 

2. Load DASICC and type in this program: 

5 SCREEN 
1* DEFDOL Y 
2fl CLR 

ia i tnf (a .i 7Gi-<Rda.i?i») 

afl LIME (320.01-020.200) 

59 FOR x=a to eao 

G9 PI*3.U1Z59 

70 Xl=X/6u0*2*PI-PI 

80 ¥*61N(X1>*100 

90 IF Y>100 THEN X=X+7 

100 PSET (Xt-Y+120) 

110 NEXT X 

120 GLOCATE<0 ,0) »0 

13i» PRINT «-3. 'THIS IS A SINE WAVE." 

3. RUN iheprogr»m 

The program draws a sine wave on ihc Graphics Screen (graphics memory) and prints the statcmeni in line 1 30 
("THIS IS A SINfc WAVE.") on the Graphics Screen. 

■t. SINE (for sine wave) is the name we are giving this TRSDOS file. To save the contents of the gra phics m emory 
•which now includes the converted video memory) to diskette, type: SY3TEH"GSAvE SINE" (ENTER}. 

5. The graphics memory is saved as a TRSDOS file on jour diskette. 

6. Exit BASIC by typing: SYSTEM l ETIfi j 
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7. Type: CCLS .ENTER: 

The graphics memory is now cteared. 
6. To load Ihe file baik into memory, lype: 
GLOOD 51 NE (EllTEH) 

The display is now on the Graphics Screen. 
9. To prill, type: GPRINT fBiTBD . 

FORTRAN Sample Programs 



00100 


C 


HIGH RESOLUTION GF 


00200 


c 




99*9$ 




CALL GRPINK0) 


90*00 




CALL SCREEN (0) 


99*>99 


c 




99*00 


c 


CIRCL* TEST 


90109 


c 




00800 




CALL CTEST 


99909 


c 




91999 


c 


LINE TEST 


01109 


c 




01200 




CALL LTEST 


01300 


c 




01400 


c 


T.TSRR TEST 


01500 


c 




01600 




CALL LBTST 


9X799 


c 




01800 


c 


LINEBF TEST 


01900 


c 




02000 




CALL LBFTST 


02100 


c 




02200 


c 


PAINTT TEST 


02300 


c 




02400 




CALL PTTTST 


02500 


c 




02600 


c 


GET AND PUT TEST 


02700 


c 




02B03 




CALL GPTST 


02900 


c 




03000 


c 


PSET/POINT TEST 


03100 


c 




03200 




CALL PPTST 


03300 


c 




03400 


c 


PPESET/POJMT TEST 


33500 


c 




03600 




CALL PRETST 


03700 


c 





- MAIN PROGRAM 



m 



03800 


C 


SCREEN TEST 


03900 


c 




04000 




CALL SCRTST 


04100 


c 




04200 


c 


VIEW/FVIEW TEST 


04300 


c 




04400 




CALL VTEST 


04500 




CALL CLS(2) 


04600 




END 
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00100 
00300 

03300 

00500 
00600 
00700 
00800 
00900 
01000 
0L100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 
02000 
02100 

02 200 
02300 
02400 
02500 
02600 
02700 
02800 
02900 
03000 
03100 
03200 
01300 
03400 
03500 
03600 

03 700 
03900 
03900 



100 



11 



04100 
042)10 



SUBROUTINE C7BST 

THIS SUBROUTINE TESTS CIRCLE, fiRTXV, AHD PAINT 

LOGICAL MSG(29J 
CALL CLS 
ENCODE (HSG, 100] 

FORMATCTEST CIRCLE, SETXY, AND PAINT' I 

WiLL 3tlTXY<0,0) 

CALL LOCATE (0) 

CALL GPRINT(29,MSG) 

CALL WAIT 

CALL VIEWC0, 30,639,239,0,0} 

DO 10 1-1,100 

IX=MOD(I*17,640) 

IY -MOD (1*1 3, 210) 

IRsI*l .5 

START=MOD(I, 131-6.0 

END=MOD(I*3,13)-6.0 

IF (START. LT. END) GOTO 1 

T=START 

STAR T^ END 

END-T 

CONTINUE 

RATIO-MOD ( 1*3, 100 ) 

IF (RATIO. GT.0) RATIO-RATIO/40. 

CALL SETXY ( IX. IY) 

CALL CIRCLE(IR,1, START, END,RATIO) 

CONTINUE 

RANDOMLY PILL IN THE AREAS 

DO 11 1-1,50 

IX»MOD( 1*23, 640) 

IY=MOD( 1*1 1,310) 

CALL SETXY(IX,IY) 

CALL PAINT(1,1) 

CONTINUE 

CALL WAIT 

CALL VIEW(0, 0,639, 239, -1,-1) 

RETURN 
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SUBROUTINE LTEST 



00200 


C 




00100 


c 


THIS ROUTINE EXERCISES LINE 


mm 


c 




00500 




LOGICAL MSGU9) 


00600 




CALL CLS(0) 


00700 




ENCODE(MSG,100) 


00800 


100 


FORMAT( 'LINE AND PAINT TEST 


00900 




CALL SETXY(0,0> 


01000 




CALL LOCATE<0) 


01100 




CALL GPRINTU9.MSG) 


01200 




CALL WAIT 


01300 




J-100 


01400 




DO 10 1*1,639,2 


01500 




CALL 5ETXY<I,15) 


01600 




CALL SETXYd, 239) 


01?00 




CALL LINE (1, J) 


01800 




J*J-1 


01900 


10 


CONTINUE 


02000 




CALL WAIT 


02100 




CALL VIEW(0, 15,639, 239, 0,0) 


02209 




CALL CLS 


02300 


c 




02400 


c 


DRAW WHITE LINES AND PILL I 


02S00 


c 




02600 




IX=*MOD(I*19,639) 


02700 




IY=MOD(I*17,223l 


02800 




CALL SETXYUX.IY) 


02900 




DO 11 1-1,100 


03000 




lX-MOD< 1*23,639 1 


03100 




IY=MODU*29,223) 


03200 




CALL SETXY(IX.IY) 


03300 




CALL LINEI1,-1) 


03400 


11 


CONTINUE 


03500 




DO 12 1=1.50 


03600 




IX=MOD(I*31,639( 


03700 




IY-NOD(I*37,223t 


03000 




CALL EETXYIIX, IY> 


03900 




CALL PAINT (1,1) 


04000 


12 


CONTINUE 


04100 




CALL WAIT 


04200 


c 




04*00 


c 


WHITE OUT SCREEN , DRAW BLACK LI 


04400 


c 




04500 




CALL VIEW(0,15,63»,239,1,1) 


04600 




DO 15 1-1,100 


04700 




IX-MOD< 1*11 ,639) 


34933 




IY-MODU*13,223> 


04900 




CALL SBTXYUX,1*) 


05000 




CALL LINE 0,-'- I 


05100 


15 


CONTINUE 


05200 




DO 16 1-1,50 


05300 




IX-MOD<I*17 f 639) 



PAINT BLACK RANDOMLY 



107 



05400 


IY-MOD( 1*19,223) 


05S00 


CALL SETXY(IX,TV) 


05600 


CALL PAINT10,0) 


05700 16 


CONTINUE 


05800 


CALL WAIT 


05900 


CALL VIEWI0, 0,639,239, 0,0) 


06000 


RETURN 


06100 


END 



l(K 



00100 




3UDR0UTINE LBFTST 


00709 


C 




00300 


C 


LIMEBF TEST 


00400 


c 




00500 




LOGICAL MSG(ll) 


90109 




CALL CLS 


90100 




ENCODE(MSG,100) 


00600 


100 


FORMAT< 'LINEBF TEST') 


00900 




CALL bJiiSi ( .U , v > 


01000 




CALL LOCATE (0) 


01100 




CALL GPRINT(ll.HSG) 


01200 




CALL WAIT 


01300 




IXP=639 


01*00 




ICLR=1 


01500 




DO 10 IX=0,120 


01600 




CALL SETXX<IX*2,IX+30) 


01700 




CALL SBTX*<IXP,IXP-400I 


01800 




CALL LINEBF(ICLR) 


01 m 




IXP=IXP-3 


02000 




ICLR-ICLR-1 


02100 




IF (ICLR.LT.0) ICLR-1 


02200 


10 


CONTINUE 


02300 




CALL WAIT 


02400 




RETURN 


02500 




BND 



l<)9 
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00100 

99209 
00300 
00400 
00500 
00600 
0070? 



90909 

01000 

01100 

01200 

01300 

01400 

01500 

01(00 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03500 

03600 

03700 

03800 

03900 



94-03 



04100 
04100 
04503 



04700 
04800 



05000 
05103 
05200 
05303 



100 



SUBROUTINE PTTTST 
PAINT WITH TILES TEST 

LOGICAL A(65),B(4),IS<16),MSG(23) 

DATA All) /9/ 

X 

DATA A!2),A(3),A(4),A(5)/X*41 , ,X , 22 , /X , 14 , ,X'0a'/ 

DATA A!6>,AU>,Al8>,A<«M/X , 14',X , 22 , ,X*41',X'00'/ 

FINE HORIZONTAL LINES 

DATA A(10),AU1>,A<12>/2,X'FF , ,X , 00'/ 

MEDIUM HORIZONTAL LINES 

DATA A(13)/4/ 

DATA A<1«>,A(15>,A(16),A<17)/X'FF' ,X'FF' ,X'00' ,X'00'/ 

DIAGONAL LINBS 

DATA AU8)/4/ 

DATA A<l9>,A<20),At21>,A(22)/X , 03 , ,X , 0C",X'30' ,X'C0V 

LEFT TO RIGHT DIAGONALS 

DATA A(23>/4/ 

DATA A(24),A(25>,A<26),A<27!/X*C0' ,X , 30',X , 0C ,K'03V 

PINE VERTICAL LINES 

DATA A{28>,A<29>/1,X'AA'/ 

MEDIUM VERTICAL LINES 

DATA AOffl.AOD/l.X'CC'/ 

COARSE VERTICAL LINES 

DATA A(32),A(33>/1,X'F0 ■/ 

ONE PIXEL DOTS 

DATA A(34J r A(35).A<36)/2 / X'22 , ,X'00V 

TWO PIXEL DOTS 

DATA A<37),A(38),A<39)/2,X' 99' , X'66'/ 

PLUSES 

DATA A(40),A(41),A(42),A(43J/3,X , 3C',X'3C',X'FPV 

SOLID 

DATA A(44),A(45)/l,X'rF'/ 

BROAD CROSS HATCH 

DATA A(46>,A(47),A<48! ,A(49)/3,X'92' ,X»92' ,X'PF*/ 

THICK CROSS HATCH 

DATA A( 501/4/ 

DATA A(51),A(52) / A(53! ,A(54)/X'PF' ,X'PF' ,X'DB* ,X'DB*/ 

FINE CROSS HATCH 

DATA A(54),A<35)fAl36)/2,X*92't)t'rrV 

ALTERNATING PIXELS 

DATA A(S7),A<58) ,A(59 > /2 ,X ' 55 ' .X»AA>/ 

DATA B(1),B(2^,B{3),B(4^/1,0,1,X , PP , / 

DATA IS(1>,1S(2),IS(3),IS<4) , IS(5> . IS<6)/1 ,10, 13.18, 23,26/ 

DATA IS(7),IS(8), 1319) / IS (10) , IS (11 ) /30, 32 ,34, 37 ,40/ 

DATA ISU2),IS(13),IS(14),IS(15) ,IS< 16 )/44,46,50 ,54,57/ 

CALL CLS 

ENCODE (MSG, 100) 

FORMAT< 'PAINTT AND SBTXYR TESTS') 

CALL SETXV<tf,0> 

CALL LOCA?E<0) 

CALL GPRINT(23,MSG) 
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05400 




CALL WAIT 


05500 


C 




05600 


c 


PAINT ON A BLACK BACKGROUND 


05700 


c 




05800 




DO 10 1-1,16 


05900 




CALL SETXY<0,40) 


06000 




CALL SETXYR<639,199) 


06100 




CALL LINEB<1,-1) 


06200 




CALL SETXYR<-300,-100> 


06300 




ITMP-IS(I) 


06400 




CALL PAINTT(A(ITMP),1,B) 


06500 




CALL WAIT 


06600 




CALL VIEW<0, 40,639, 239,0,0) 


06700 




CALL VIEW(0, 0,639, 239,-1,-1) 


06800 


10 


CONTINUE 


06900 


c 




07000 


c 


PAINT ON A WHITE BACKGROUND 


07100 


c 




07200 




DO 11 1-1,16 


07300 




IFII.EQ.12) GOTO 11 


07400 




CALL VIEW<0,40,639,239,0,0) 


07500 




CALL VIEW(0, 0,639, 239, -1,-D 


07600 




CALL SETXY(0,40) 


07700 




CALL SETXYR<639,199) 


07800 




CALL LINEBF(l) 


07900 




CALL SETXYR(-300,-100) 


08000 




ITMP-IS(I) 


08100 




CALL PAINTT(A(ITMP),0,B(3>) 


08200 




CALL WAIT 


08300 


11 


CONTINUE 


08400 




RETURN 


08500 




END 



HI 
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00200 
00300 
00400 
00500 



C 

c 
c 



00700 

00800 100 

00900 

01000 

01100 

01200 

01300 

01400 

01500 

01600 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 



SUBROUTINE GPTST 

GET AND PUT TEST 

LOGICAL A(1000),MSG(16> 

CALL CLS 

ENCODEtMSG, 100) 

FORMAT! 'GET AND PUT TEST') 

CALL SETXY<0,0) 

LOCATE (0) 

GPRINT(16,MSG> 

VIEW(0,30,639,239,0,0) 

SETXY (100,100) 

SETXYR<30,30) 

LINEBP(l) 

GET(A,1000) 

CLS 

WAIT 

SETXYU00,100) 

PUT(A,1) 
WAIT 

VIEW(0, 0,639, 239, 0,-1) 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

RETURN 

END 
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0P100 




SUBROUTINE :'Pi'£r 


00200 


C 




00300 


C 


PSET AND POINT TEST 


00400 


c 




00500 




LOGICAL P0INT,MSG(21) 


00680 




CALL CLS 


00700 




ENCODE (MSG, 100) 


00800 


100 


FORMAT* 'PSET AND POINT TEST') 


00900 




CALL SETX?(0,0> 


01000 




CALL LOCATE! 0) 


01100 




CALL GPRINT(19,MSG) 


01200 




CALL WAIT 


01300 




CALL CLS 


01400 


c 




01500 


c 


SET AND CHECK ALL PIXELS 


01600 


c 




01700 




DO 10 1-0,639 


01800 




DO 11 J=0,239 


01900 




CALL SETXm.J) 


02000 




CALL PSBT(l) 


02100 




K-POINT(L) 


07200 




IF<lt.EQ.0) GOTO 999 


02300 


11 


CONTINUE 


02400 


10 


CONTINUE 


02500 


c 




02600 


c 


RESET AMD CHECK ALL PIXELS 


02700 


c 




02800 




DO 12 1-0,639 


02900 




DO 13 J'0,239 


03000 




CALL SETXV(I.J) 


03100 




CALL PSET(0) 


03200 




K-POINT(L) 


03300 




IF (K.EQ.l) GOTO 999 


03400 


13 


CONTINUE 


03500 


12 


CONTINUE 


03600 




CALL CLS 


03700 




ENCODB(MSG,101> 


03800 


101 


FORMAT ( 'PSET AND POINT PASSED') 


03900 




CALL SETXY{0,0) 


04000 




CALL LOCATED 0) 


0*100 




CALL CPRIWT(21,WSG) 


04 200 




GOTO 1000 


04300 


999 


CALL CLS 


04400 




ENCODE(MSG,102) 


04500 


102 


FORMAT (' PSET AND POINT FAILED') 


04600 




CALL SETXX<0,0) 


04 700 




CALL LOCATE! 0) 


04800 




CALL GPRIST(21,MSG) 


04 900 


1000 


CALL WAIT 


05000 




RETURN 


05100 




END 
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00100 




moaei a ^ompuier urap 

SUBROUTINE PRET5T 


0928$ 


C 




00300 


C 


PRESET AND POTMT TEST 


00400 


c 




00500 




LOGICAL POINT,MSG(23 1 


00600 




CALL CLS 


00700 




ENCODE!MSG,100) 


00800 


100 


FORMAT! 'PRESET AND POINT TEST') 


00900 




CALL strx*;0,«) 


01000 




CALL LOCATEI0) 


01100 




CALL GPRI»JT(23.MSG> 


01200 




CALL WAIT 


01300 




CALL CLS 


01400 


c 




01500 


c 


SET AMD CHECK ALL PIXELS 


01600 


c 




01700 




DO 10 1-0,639 


01800 




DO 11 J=0,239 


01900 




CALL SETXY(I,J> 


02000 




CALL PRESBT(l) 


02100 




K-POINT! L) 


022*0 




IP<K.EQ.0> GOTO 000 


02 300 


XL 


CONTINUE 


02400 


10 


CONTINUE 


02500 


C 




02600 


c 


RESET AND CHECK ALL PIXELS 


02700 


c 




02800 




DO 12 1=0,639 


02900 




DO 13 J-0,239 


03000 




CALL CETXY(I,J) 


03100 




CALL PRESET! 0) 


03200 




K=POINT(L) 


03300 




IF (K.EQ.l) GOTO 999 


03 400 


13 


CONTINUE 


03500 


12 


CONTINUE 


03600 




CALL CLS 


03700 




ENCODE (MSCL0L) 


03800 


101 


FORMAT! 'PRESET AND POINT PASSED' > 


03900 




CALL SETXT{0,0> 


04000 




CALL LOCATE! 0) 


04100 




CALL GPRINT(23,MSG) 


04 200 




GOTO 1000 


04300 


999 


CALL CLS 


04 400 




ENCODE{MSG,102> 


04500 


102 


FORMAT! 'PRESET AND POINT FAILED') 


04600 




CALL SETXng,0) 


04 700 




CALL LOCATE! 0) 


04800 




CALL GPRINT123,MSG> 


049*0 


100* 


CALL WAIT 


05000 




RETURN 


05100 




EKD 
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Appendix D Sample Programs 



00100 

00200 C 

00300 C 

00400 C 

00500 

00600 

00700 

00800 100 

00900 

01000 

01100 

01200 

01300 

01400 

01500 

01600 

01700 

01600 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03500 

03600 

03700 

03800 

03 900 

04000 



C 

c 
c 



SUBROUTINE SCRTST 
SCREEN TEST 

LOGICAL MSG(ll) 
CALL CLS 
ENCODE! MSG, 100) 
FORMAT! 'SCREEN TEST') 
CALL SETXYI0.0) 
CALL LOCATE (01 

CALL GPRINTU1,MSG) 

CALL WAIT 

CALL SETXYU00, 120) 

CALL CIRCLEU00, 1,0.0, 6. 28,0.5) 

CALL CIRCLE(100,l,0-0,6.28,0.25) 

CALL CIRCLE(50,1,0.0,6.28,0.5) 

CALL PAINT (1,1) 

GRAPHICS SCREEN 

CALL SCPEEN (0) 
CALL WAIT 
CALL WAIT 
CALL WAIT 

TEXT SCREEN 

CALL SCREEN! 1) 
CALL WAIT 
CALL WAIT 
CALL WAIT 

GRAPHICS SCREEN 

CALL SCREEN (0) 
CALL WAIT 
CALL WAIT 
CALL WAIT 
RETURN 
END 
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00X00 



SUBROUTINE VTEST 



002*0 


C 








00200 


c 


VIEW 


AND PVIEW TEST 




00400 


C 








00500 




INTEGER FVIEW 




00*00 




LUmi'Al. MSU(19 J 




00700 




CALL 


CL3 




00600 




ENCODE (MSG. 100) 




00900 


100 


KORMATCVTEW AND FVIKW TEST') 




0:000 




CALL 


SETXY<0,0) 




01X00 




CALL 


LOCATE (0) 




01200 




CALL 


GPRINTI19,MSG) 




01300 




CALL 


WAIT 




0X*00 


C 








01500 


c 


DRAW 


VT2WPORT AND CIRCLES 




01600 


c 








01700 




CALL VISW(0,40,639,239,0,1) 




H18rfU 




CALL 


DClRCL(l) 




01990 


c 








02000 


c 


DRAW 


VIEWPORT AND LINES 




02100 


c 








02200 




CALL 


Vism20,!>0,bl9,229,l,0) 




02300 




CALL 


DLINE{0) 




02400 


c 








02500 


c 


DRAW 


VIEWPORT AND CIRCLSS 




02600 


c 








02700 




CALL 


VIEW( 40,60,599, 209, 0,0) 




02800 




CALL 


DCIRCLQ) 




02900 


c 








\iiV00 


G 


HUM 


V1BMPORT AND LINES 




03100 


c 








03200 




CALL 


VIEW<60,70,579.19 9.1,1) 




0)300 




CALL 


DLINB(0) 




03400 


c 








03500 


c 


CLEAR 




03600 


c 








03700 




IXl-PVIEW<0i 




03800 




lil-PVIBH(l) 




03900 




IX2-FVIBWI2) 




04080 




H2-PVIBWO) 




04100 




CALL 


VIBWt 60-1X1,70-1*1, 60+1X2, 40+1*2, 0,1) 


04200 




CALL 


CLS 




04300 




mma 




04400 




END 
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UW 




SUBROUTINE DCTRCL(TCLR) 


riv 


04C00 




CALL SB?XY< 100,10?) 




04?** 




CO ljf I=S,300,5 




0480*1 




CALL CIftCLE<I,ICLR,0.0,5.2B,j3.5) 


3190C 


10 


CONTINUE 




was 




CALL tfAIT 




*fsijjg 




RETURN 




^2J*0 




END 




25 w 




SUBROUTINE DLINSICLR) 




35400 




CO 11 1=2,200,4 




05 5|f? 




CALL SETXY<-10,-ljn 




05600 




CALL SETX? (1+200,1) 




fif57<fjBT 




CALL LINB<ICLR/-L1 




3580(1 


11 


CONTINUE 




fom 




CALL WAIT 




35000 




RETURN 




titan 




KNU 





:n 



09100 




SUBROUTINE WAIT 


0*200 


C 




00300 


c 


THIS SUBROUTINE 


00400 


c 




00500 




DO 11 J-1,20 


00600 




DO 10 1=1,10000 


00700 


10 


CONTINUE 


00800 


11 


CONTINUE 


Uiwi'W 




RKTUHN 


01000 




END 
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Appendix E/ Base Conversion Chart 



Appendix E/ Base Conversion Chart 



DEC 


HEX. 


BINARY 





00 


00000^00 


' 


01 


00000001 


2 


02 


00000310 


3 


03 


00000011 


a 


04 


00000100 


9 


03 


00000101 


6 


06 


00000110 


7 


07 


0*0001 LI 


8 


08 


00001 000 


9 


0S 


00001001 


10 


0£ 


00001010 


1 1 


00 


00001011 


12 


0C 


00001100 


13 


0D 


00001101 


14 


0E 


00001110 


15 


0F 


00001111 


lb 


10 


00010000 


17 


1 1 


00010001 


IB 


12 


00010010 


IS 


13 


00010011 


20 


14 


00010100 


21 


15 


00010101 


22 


16 


00010110 


Z3 


17 


00010111 


za 


18 


00011000 


25 


13 


0001 1001 


2G 


1* 


0001 1010 


27 


ID 


00011011 


2H 


1C 


V>6$\ lltftf 


29 


ID 


00011101 


30 


IF 


0001 11 10 


31 


IF 


00011111 


32 


2* 


00100000 


33 


21 


00100001 


34 


22 


00100010 


35 


2D 


00100011 


35 


24 


00100100 


37 


25 


00100101 


3B 


26 


001001 10 


39 


27 


00100111 



DEC. 


HEX. 


5INARY 


40 


28 


00101000 


41 


2fl 


001 01001 


42 


2A 


00101010 


43 


2G 


00101011 


44 


2C 


00101100 


45 


ZD 


00101101 


tie 


2E 


001011 10 


47 


2F 


00101111 


4B 


30 


00110000 


49 


31 


001 10001 


50 


32 


00110010 


51 


33 


001 1001 I 


52 


34 


00110100 


53 


35 


001 10101 


54 


36 


00110110 


55 


37 


001101 11 


56 


3B 


00111000 


57 


39 


00111001 


59 


34 


00111010 


59 


3D 


00111011 


60 


3C 


0011110O 


61 


30 


00111101 


62 


3E 


001111 10 


S3 


3F 


001 11111 


64 


40 


01000000 


65 


41 


01000001 


G6 


az 


01000010 


G7 


43 


0100001 1 


68 


aa 


(010190100 


B9 


45 


01000101 


70 


4R 


010001 10 


71 


47 


010001 11 


72 


48 


01001000 


73 


49 


01001001 


74 


4fi 


01001010 


75 


4B 


01001011 


76 


4C 


01001100 


77 


40 


01001101 


78 


4E 


010011 10 


79 


4F 


01001111 
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DEC . 



HEX 



BINARY 



DEC. 



HEi'- 



1NAR" 



BO 


50 


01010000 


El 


51 


01010001 


82 


52 


01010010 


83 


53 


01010011 


84 


sa 


01010100 


8S 


S3 


01 ,11 / ' :' ' 


86 


56 


01010110 


87 


37 


0101011 1 


88 


5B 


01011000 


as 


59 


01011001 


01? 


5ft 


01011010 


91 


SB 


0101101 1 


92 


SC 


01011 100 


93 


5D 


01011 101 


94 


5E 


01012110 


95 


5F 


01011 11 1 


96 


50 


0110OOOO 


97 


SI 


01100001 


9B 


62 


01100011? 


99 


S3 


0110001 1 


100 


64 


011100100 


101 


B5 


0110010 1 


102 


56 


01 100110 


193 


B7 


0110011 1 


l^a 


59 


01101000 


105 


59 


01101001 


10G 


SA 


01101010 


107 


3D 


0110101 1 


108 


3C 


01101100 


109 


SO 


01101 101 


110 


BE 


01101120 


111 


SF 


01101111 


112 


70 


01110000 


113 


71 


01210*01 


114 


72 


021 10(M0 


115 


73 


011 IP* I 1 


116 


74 


01110100 


117 


75 


01110101 


no 


76 


01110110 


110 


77 


Oil 10111 



120 


76 


01111000 


121 


79 


01111001 


122 


7fl 


01111010 


123 


70 


01111011 


iza 


7C 


01111100 


125 


70 


01111101 


1Z6 


7E 


01 111110 


127 


7F 


01111111 


12B 


B0 


I0i»00000 


129 


91 


10000001 


130 


92 


I 0000010 


131 


63 


I0AO0011 


132 


84 


I00O010O 


133 


85 


1O0OO101 


134 


86 


10000110 


135 


87 


;O0O011l 


136 


£8 


:O001000 


137 


89 


10001001 


138 


8A 


10001010 


139 


8B 


1000101 1 


140 


BL 


10001100 


141 


8D 


10001 101 


142 


8E 


10001 110 


143 


QF 


10001111 


144 


90 


10010000 


145 


91 


10010001 


146 


92 


10010010 


147 


33 


1001001 1 


149 


34 


10010100 


149 


95 


10010101 


150 


96 


10010110 


151 


97 


10010111 


152 


96 


10O11OOO 


153 


96 


10011001 


154 


9fl 


10011010 


133 


3D 


1001101 1 


156 


9C 


10011 100 


1S7 


9D 


10011 101 


15B 


SE 


10011110 


ISO 


or 


10011111 
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DEC. 


HEX. 


BINARY 


K CI Deist 

DEC. 


t WWII 

HEX. 


BINARV 


160 


A0 


10100000 


200 


CB 


1 1001000 


161 


Al 


10100001 


201 


C9 


1 1001001 


162 


02 


10100010 


2*2 


CA 


11001010 


163 


03 


10100011 


ZV3 


CB 


11001011 


164 


A4 


1010010* 


204 


CC 


11001100 


155 


AS 


10100101 


2*5 


CO 


1 1001 101 


156 


AG 


1010011* 


2*6 


CE 


11001110 


157 


A7 


101*0111 


2*7 


CF 


11001111 


IBB 


A8 


101*1*00 


2*8 


D0 


1 1010000 


169 


A9 


101*1*01 


2*9 


Dl 


1 1010001 


170 


AA 


10101*10 


210 


D2 


1 1010*10 


171 


ab- 


101*1*11 


211 


03 


1 101001 1 


172 


ac 


10101100 


212 


D4 


11010100 


173 


AD 


101*1101 


213 


05 


1 1010101 


174 


AE 


1*1*1110 


214 


06 


1 101011* 


175 


fih 


1V1V1J 1 I 


*il3 


07 


1 101011 J 


176 


B0 


101 10000 


216 


D8 


1101100* 


177 


61 


101 10001 


217 


nn 


I 101 1001 


178 


B2 


10110*10 


21B 


DA 


1 1011010 


173 


B3 


10110011 


219 


DB 


1 1011011 


1B0 


B4 


10110100 


220 


DC 


11011 100 


181 


BS 


101 10101 


221 


DD 


I 1011101 


182 


B6 


101101 10 


222 


DE 


1 1011 11* 


183 


07 


10110111 


223 


DF 


11011111 


184 


B8 


1011 1000 


224 


E* 


111*0*0* 


1B5 


B9 


1*11 1001 


225 


El 


1 11*0*01 


18G 


Bfl 


1*11 1010 


226 


E2 


1 1 10001 


187 


BB 


1011 1011 


227 


E3 


1 1 10001 1 


18E 


BC 


1*111100 


228 


E4 


11100100 


IBS 


BD 


1 1 1 1 1 01 


773 


F5 


1 1100101 


190 


BE 


1*11 1110 


230 


EG 


1 1 1001 10 


191 


BF 


1*111111 


231 


E7 


111*01 11 


192 


C* 


11000000 


232 


E8 


11 1*1000 


193 


CI 


11000001 


233 


E9 


11101*01 


134 


C2 


11000010 


234 


EA 


1 1 101010 


195 


C3 


11000011 


235 


ED 


11101*11 


196 


Cd 


1 1000100 


236 


EC 


11101100 


197 


C5 


11000101 


237 


ED 


1 1101101 


198 


CB 


11000110 


238 


EE 


111*1110 


133 


U7 


lltftftfl 11 


zaa 


EF 


11101111 
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DFC 



HEX , 



ilNftRY 



240 


F0 1 


11 10000 


2 ill 


Fl 1 


11 10001 


2a2 


F2 1 


11 10010 


2d3 


F3 I 


1110011 


2aa 


Fa 1 


1110100 


235 


F5 t 


1 1 10101 


2 as 


FG 1 


1110110 


2l\l 


F7 1 


1110111 


208 


FB 1 


1111000 


239 


F9 1 


1111001 


250 


FA 1 


1111011? 


251 


FB 1 


1111011 


252 


FC 1 


11 11 100 


233 


FD 1 


11 11 101 


23a 


FE 1 


1111110 


zss 


FF 1 


1111111 
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Appendix F/ Pixel Grid Reference 

The following hexadecimal numbers include commonly used tiling designs. 

Important Note: You cannot use more Uiaii tw« empty row* of tiles when riling or you'll get an Illegal Function 
Call error. 

Example (four rows of empty tiles): 

ChR* (fcHFF>-»CHR»(fcHFF) «CHR»(6Mtf0) " CIIR*f 6HO0 > * CHR* (6H«fl > -CHR« (1W0C) 

gives you an Illegal Function Call error. 
I. "X" 

CHR«<6cltai>*CHR* (&H22>+CHR»(aHiai+CHR»(&H0B) + CHR*iiHl'n 
+CHR$tSH22»+CHR*t&Hai )+CHR$ <5Hfl0 ) 






l 

















i 







* 


l 











1 
















1 





1 






















1 


U 



















1 





1 
















1 











a 










1 

















l 

























^ 





Hex 


Decirr 


41 


05 


22 


34 


14 


20 


OB 





14 


20 


22 


34 


41 


$5 


00 






2. "Fine" horizontal line*. 

CHR*f &HFF )+CHR*(kHOfl > 



1 


1 


1 


1 


1 


1 


1 


1 



























Hex 


Decimal 


FF 


255 


OC 


O 
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3. "Medium" horizontal line* 

CHR*UHFF)+CHR*UHFF)+CHR»{6H00>+CHR*(*H0fl> 



1 


1 


1 


1 


1 


1 


i 


1 


1 


1 


1 


l 


1 


L 


i 


1 

















^ 

































Hex 


Decimal 


FF 


250 


FF 


255 


00 





00 






4. Diagonal lines 

(Right to left) 
CHR*<feH&3)+CHR*(&HeC)+CHR*<&H30>+CHR*(6HCfl > 





















1 


1 














1 


1 














1 


1 














1 


1 





* 





J» 









Hex 


Dec IT 


03 


3 


oc 


12 


30 


43 


CO 


192 



(Left io right) 

CHRM5HC0) +CHR* { &H3«U +CHR»( &H0C J+CHRS < 1H03 > 



1 


1 




























1 


1 




























1 


1 




























1 


1 





Hex 


Decimal 


CO 


102 


30 


48 


OC 


12 


03 


3 
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5. "nine" vertical (fees 
THRmHAA) 



, 1* h 


1 1 ft 



6 "Medium" vrrtiral lines 
CHR*(6HCCt 



1 1 





1 


i - 


\" 


• i 


7. "Coarse" vertical lines 
CHRt (&NF«> 


'I'M 


1 





i • 


• 






Hex Decimal 

AA 170 



Hex 


Decimal 


CC 


204 


Hex 


Decimal 


F0 


240 



One-pixel dots- 
CHR*(&H22>+CHRt(iH00> 









1 





a 





1 

















3 












Hex 


Decimal 


22 


34 


oo 


o 



9 Two-pixel ilotv 

CHR«lfcH99)fCHR$(&HG6) 



1 








1 


1 


* 





L 


9 


1 


1 








1 


1 






He* 



Decimal 
153 
102 
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10. riuK» c i *') 

CHRKIH3C)+CHR$(&H3C)+CHR*(6HFF) 









4k 


l 


1 


i 














1 


l 


l 


l 








1 


1 


l 


l 


l 


l 


1 


l 



Hex 


Decimal 


3C 


60 


3C 


60 


FF 


255 



II. SolKMall pixels ON) 
CHR*(fcHFF> 



I 1 1 1 II I 111 11 



Hex 

FF 



Decimal 
255 



12. "Bread" cross-hatch 

CHR»(fcH92)+CI-R4<fiH92)+CHR*t&HFF) 



1 





X 








1 





1 





B 


1 








1 





1 


1 


1 


1 


1 


1 


1 


1 



Hex 


Decimat 


92 


146 


92 


146 


FF 


255 



13. "IMcfc" crosvhaich 

CHR*<fcHFF>+CHR»UHFri'CII[?»<&IIQ6) •CltRMWIDB) 



11111 111 

11111 111 

11011 011 

11011 011 



hex 


Decimal 


FF 


255 


FF 


255 


DB 


219 


DB 


219 
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14. "Fine" aew-hatdi 

CHR*(1H92)+CHR«(4,HPF) 



: 








i 








1 





1 


l 


l 


i 


1 


1 


1 


1 



Hex Decimal 

92 146 

FF 255 



15. Alternating pixels 

CMR*<t<H55MCHR«< IHAA> 






1 





1 





1 


* 


1 


1 





1 





1 





1 






Hex Decimal 

55 65 

AA 170 
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Type 


Binary Numbers 


Hex 


Decimal 


Long Cash 


oooo oooo im mi 


&H00FF 


255 


Shcrt da6n 


1111 oooo nn oooo 


8.HF0FQ 


•3856 


■'Short-short" dash 


1 100 1100 1 100 1 100 


8.HCCCC 


•13108 


Solid line 


im 1111 1111 tin 


&HFFFF 


-1 


OFF/ON 


0101 0101 0101 0101 


&HS555 


21645 


'Wide" dots 


OOOO 1O0O0O0O 1000 


&HO808 


2056 


"Medium" dots 


1000 1000 1000 1000 


&HB888 


-30584 


'Dot -dash" 


10001111 1111 1000 


RhflFFB 


•?85B0 



1 29 



1 nd ex 



ibsoluie coordinates 4042.83 

AND 34.35.80. ST 

arc 19. IB 

4n«> 19-21 . 34. 35. 40. 72-7*. 80. 89-90 

*rrav limii. 20. 73. 74 

*rrsr ninv l«). 30. 14 87. 88 

ispett rati* 13. 14. [7. 72 

OASIC 5. 11. 19. 34-35. 70 

BASICG 7. 11.12.28.33.34.35.69.97.103 
BASICG command II, 1 3 

BASICG error messages 89-93 

BASICG functions 12. 13 

binary niinhi-r. ?4. 27-?**. 129 

Canesun tya*m 8. 12. 40. 82. 83 

CIRCLE II. 13-19.71, 72. 87. 95 

CLR 1 1 . 87 

CLS 71.87.95 

communiciuon drivers 45 

currcni coordinates 69. 70. 72-73. 82 

DEBUG 45 

DO 73-74.81.83 

double -precision 12 

Hhp« 5. 17-19, 71. 87 

FORMS 47. 103 

FORTRAN 5. 45. 69-71. 75. |04. 105 

free memm 1 1 . 28. 70 

FVEW 71.84.95 

GCL5 43. 48, 87 

GET It. 19-21. 33.40. 71, 72-73. 93 

GLOAD 45. 46. 49. 87 88 

GLOCATt 1 1 . 2 1 . 22. 32. 87-88 

GPRINT 45. 47. 71. 74. 75. KK. 95 

GPRT 2 45. 48. 88 

GPRT X 45. 47-48 88 

graphic- bwd 85. 86 

GRAPHICS ERK11K 70. 75 

giapliiis mmurf 4N47. 44, 41. |d.'-HH 

graphics utilities 45-49 

GROFF 45. 48. 88 

GHON 45. 49. 88 

GRPINI 71.75.95 

fiRPI IRRL-L 69. 70 

GSAVh 45. 49. 88 

turd disk 4 

ft* nuintxTs 23. 24. 2fc-2V. I li, \z-l 

initialization 69-70 

nic;cr 13-14. 19. 20. 73 
INTEGER 72. 73. 74. 76. 82-83 
integer range 8. 15. 23. 24. 75-76. 89 



IjO port mapping 85 

LINE 11.23-25.69,71.88. 95 

LINbCMD 6V. 7S 

lire styles 23. 24. 129 

LINFB 09. 71 76-77. 1H 

LINKS CM B 69 

I INJFRF 60, 71. 76-77. 05 

LINEBE-CMD 69 

loading BASICG II. 12 

LOCATE 71.95 

LOGICAL 72-81.82-84 

nrtaitinal conventions 5 

numeric expressions 15. 20 

mnwric values 13 

optjwtt programming 86 

OR 34. VS. 8081. 87 

PAINI II. 25-30. 40. 69. 71. 78. 88. 95 

IWINr-CMD 69 

PAINTT 69.71.78-79.95 

PAINIT-CMD 69 

pi* iliec 13 

pivel 7. S. 23-24. 26. 27. 30-34. 35. 71.73. 79. 80. S4. 

85. 123 
ptiel area 19-3). 35. 38. 39 72-73. 80-81 . 88 

POINT 12.30.31. 71.84.88.96 
PRESET II. 32. 33. 34.35.71. 79. 80-81. 87.8*. 96 
previous coordinates 69. 7(1, 72-73. 82 
PRINT #-3 II. 33. 88 
printers 5 

PSET II. 33-35. 38.71.80. 87. 88. 90 
PIT II. 1920, 34-36. 38. 39. 71. 80-81. M 
real ». 73 
RfcAL 72 

irlanw* origin 40. 82-83 
resolution 7 

SCREEN 11.39.71.81,88.96 
- SCKfcEN-CMD 12. Ml 
screen dump 47 
SETXY 69. 70. t|. 73. 76, 82. 96 
SETXVR 69. 70. 71 . 75-76. 82. 96 
single-precision 12-13. |7.|*. 87 
itjnira up 12 
slnngs 26-28 

subrouting library 7. 69. 70. 83. 95 
text screen 3. II, 13, 39, 81, 85. 87 
video displaj 8. 83 
VIEW II. 40-12. 7|. B2-83. 88. 96 

VIEW io>mmaidt 1 1. 40-42 
VIEW (function) 12. 43.44. 82. 83. 8K 

vim port II. 12. 40-44. 71.82 83. 84, 88 
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